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ABSTRACT 



Surveillance of the oceans hy shore based facilities 
is an important segment of the ASW mission. A system with 
enhanced capabilities is presently being developed but 
problems arise in the training of Navy enlisted personnel 
to utilize this sophisticated equipment. 

An embedded tutorial training program preserves all 
the benefits of computer assisted instruction (CAI) while 
reducing the greatest disadvantage, cost. A demonstration 
of an embedded tutorial is presented which introduces the 
new operator to the system, provides help during 
operations, and has refresher exercises for experienced 
operators. Since a sophisticated computer-based system 
must provide guidance and direction during operations the 
introduction and refresher are available at almost no 
cost . 

This demonstration system is intended only to show 
that a tutorial system can be developed and deployed and 
does not purport to be a complete deployable system 
itself. 
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I. INTRODUCTION 



An embedded tutorial is ideal as a trainin,s device for 
individuals required to utilize a computer in their 
operational tasl-cs because it possesses all the advantages 
of computer assisted instruction (CAI), while reducing its 
major disadvantage, cost. CAI improves the student's 
knowledge of the subject because it continues to give 
additional information until the individual achieves the 
desired level of performance. Studies have shown that this 
has resulted in higher test scores at the end of the 
instruction period and, in most cases, the student 
finishes in a shorter amount of time than that required 
for conventional instruction. One shortcoming of CAI has 
been a rise in the student attrition rate while using 
computer based instruction in some applications. Attrition 
rate studies show that the use of computer based 
instruction often increases the amount of student 
failures? however, in the case of ASW trainees the 
attrition rate is decreased. This could be traced to the 
fact that the selectees for ASV; training are of a slightly 
higher initial aptitude and are more inclined towards use 
of a computer since their operational jobs involve the use 
of some type of computer. Apparently, a machinist mate 
being trained on the repair of a pump would feel frustra- 
ted in not being able to get his hands on the equipment 
and thus would reject the use of this type of training. 
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The embedded tutorial described in this paper 
demonstrates the capabilities of a computer and a color 
graphics console in the training of a prospective ASW 
tracker. It is only a demonstration because the actual 
system is not fully developed, the actual type of color 
graphics console was not available, and the actual data 
for test cases were unattainable . 

The numbers throughout this paper fall into three 
general classifications, common knowledge values, general 
range values, and specific constraints. The common 
knowledge values are those numbers that can be found in 
any basic textbook, such as the speed of sound in water, 
and thus are not classified. The general range values are 
those where a spectrum of values could be sighted and thus 
a random value was picked, for example 41. S as the 
frequency of the signal being detected. The last numbers 
used throughout this paper are a series of XXX's that are 
substituted for values which could not be revealed for 
security reasons. The actual values would be included in 
the operational tutorial. 

The tutorial permits the user to proceed in any of 
three areas of study depending on his abilities and 
previous training. There is a basic tutorial on the 
overall system, the environmental problems, and the 
formulas used to tranform the data into useful displays. 
Next, there is a short tutorial on the types of data 
displays that a tracker will use in the operational 
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system. Last, there is a set of scenarios that can he used 
to refresh the slcills necessary to effectively track 
vessels. 
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II. 2MPEri)EE TUTORIALS 



A. PURPOSE OE EI^BFDDED TUTORIALS 

An em^bedded tutorial, as discussed in this paper, 
means the use of computer aided instruction (CAI) on the 
computer and graphics terminals that are actually used to 



t rack 


ta^i'ets. The 


purpose 


of embedding the 


tutorial 


in 


the 


operational 


system 


is three-fold: 


fi rst , 


the 


individual being 


trained 


becomes accustom 


ed to 


the 



surroundings and the response time of the terminalj 
second, since the computer and terminals are already 
present and there is room in memory to store the tutorial, 
this procedure is more cos t-ef f i cien t than a separate 
system or conventional training ’methods? third, it 
provides a reference manual for an operator actually usin? 
the system. There are many more subtle benefits in using 
an embedded tutorial. 5y training an individual, at l°ast 
partially, on the actual operational system a great deal 
of the anxiety of a young, inexperienced oneratcr can be 
relieved. The operator will become familiar with the 
computer, the system, and their idiosyncracies , and thus 
be more comfortable when the pressure of the mission 
begi ns . 

An embedded tutorial maintains all the advantages of 
com.puter based instruction while reducing one of its major 
disadvantages , cost. Since the tutorial is part of the 
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operational system, a major part of the cost is 
eliminated. ?ven if some additional memory and terminals 
have to be installed, great savings are achieved. The data 
collected by several surveys shows that even with 
stand-alone computer-based instructional systems the money 
saved because of reduced training time balances the cost 
of the system. 

While manuals could be provided for the user to review 
when a problem arises on the operational system, it would 
be more beneficial for the user to see the solution or 
course of action on the terminal being used at that time. 

A. picture of a surface plot in a book cannot comuare to 
one on a color graphics terminal and the computer can 
produce a vast amount of variations corresponding to the 
particular problem. Since the embedded tutorial is 
attached to the operational data, the reference material 
could be kept constantly up to date. 

B. STSTFK S?TU? 

This tutorial was designed to demonstrate some of the 
capabilities of a color graphics system to provide a 
computer-based instructional package. While the Ramtek 
100A. used for this study performs many of the desired 
functions: easy color manipulation, simple inout devices, 
quick response to user input, and fair picture resolution, 
the proposed Ramtek 9400 system has superior 
characteristics. It out perform.s the 100A system in speed, 
resolution, and other capabilities. The Ramtek 9400 is on 
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the order of ten times faster than the present system. It 
also has 32K x 32K virtual picture and a 1224: x 1232 
screen resolution which enables the displays to anpear 
much more lifelike. Some of the capabilities of the Rartek 
9400 that enable the designer of a tutorial more 
flexibility are: panning, zooming, blinking, rotation in 
90-degree increments, scrolling up, down, right, and left 
within arbitrary rectangular limits, interrupts, and 
delays. Since all of these function are Incorporated in 
the machine, the coding of a tutorial or any program will 
be greatly reduced. A Ramtek 9400 is presently being 
installed at the Naval Postgraduate School Computer 
Laboratory, which will allow the further development of 
this tutorial system. 

C. ACVAMTAGES / DISADVANTAGES 
1 . Student Achievement 

The effectivenss of co""puter aided instruction 
compared to conventional instruction has been measured 
only by student performance and not by on-the-job 
performance after graduation. Student achievement might be 
an aid in predicting quality of performance on the job but 
the correlation between these two measures has not been 
established for any of the training methods. Student 
achievements have shown that computer aided instruction is 
as good or better than other methods in practically all 
cases. The fact that student achievement with computer 
aided instruction (CAI) is better than conventional 
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instruction or individualized instruction ray also "be a 
direct consequence of the fact that students instructed hy 
CAI rerain in these courses until they have rastered all 
the lessons. The critical variable thus becomes the ancunt 
of tire needed to complete courses given by computer-based 
instruction. An additional benefit is achieved by ensurin,E: 
that an individual has rastered all of the lessens needed 
to be a qualified tracker in the fleet. 

2 . Student Time Savings 

Findings in a report, IDA paper P-1375, prepared 
for the Office of the Under Secretary of Defense fer 
Research and Engineering shows that computer-based 
instruction saves about one-third of the time required for 
courses using conventional instruction! however, there are 
wide variations in the amounts of savings that have been 
reported. Two major uncontrolled variables in thes^ 
studies are the unknown quality of the instructional 
materials used in the various conparisons and uncertainty 
that the sere amounts of course materials were used in 
both methods of instruction. 

The fact that CAI saves time is consistent with 
well-known information about the effect of great 
differences both in student abilities and in knowledge of 
the subject at the start of any course. In conver’ ti ona 1 
instruction with a fixed amount of time, these differences 
lead to variations in the amounts of knowledge acquired by 
the end of th® course, as shown by a distribution of final 
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grades. In individualized instruction, whether 
computer-based or not, each student proceeds at his ov'n 
pace and differences between students influence the amount 
of time needed to complete the course more than it does 
the amount of information acquired. Most of the time 
savings in individualized instruction are due to those 
students whose rate of progress in conventional 
instruction would be too slow; typically, that rate might 
be one that permits about 90 percent of the students to 
comnlete the course during the fixed period of time. 

An example of the time savings can be seen in the 
graph (figure 2-1' which shows the reductions in student 
time for about 12,000 graduates over a 15-ronth period 
ending May 1978. The results were for three courses on the 
Mavy Computer Managed Instruction System at Maval Air 
Technical Training Center, Millington, Tennessee. 
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STUDENT TIME-SAVINGS 
FIGURE 2-1 
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3 . Student Attrition 

Since the rrethod of instruction ^ay influence the 
number of students who can sucessfully complete a cours=, 
the rate of academic attrition associated with alternative 
methods of instruction is a matter of concern. The rate of 
attrition is a measure of the cost of instruction since it 
influences the number of students needed to enter a course 
in order to produce a specified number of frraduates. Only 
two computer-based instructional systems, the Air Icrce 
AIS and Navy Cyi, have received extended, thoush still 
limited, use in military training. Academic attrition may 
have increased in courses taught this way, compared to 
attrition with conventional instruction during prior 
periods, but the abilities of the graduates were 
signif icantly higher. Also since these comparisons do not 
take into account possible changes in the qualifications 
of students over the same time periods, the available data 
suggests, but does not prove, that computer-based 
instruction may increase academic attrition over that 
found with conventional instruction. Figure 2-2 shows the 
attrition rates of seven courses taught using both methods 
of instruction. 
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> 1 1 i t ud e s of Students avA Instructors 



Students alrrost always favor c cmpu te r-la sed 
instruction over the conventional instruction, while 
instructors alrrost always have unfavorable attitudes 
towards the GAI instruction. The students attidudes are 
generally due to two factors: excite^'ent about the use of 
a new type of machine and better control over the material 
that is being taught. "Both of the factors are constantly 
at work and thus by the time the novelty of the system 
wears off the student generally has developed a strong 
attitude that he has control over his academic destiny. 
The instructors, on the other hand, dislike the new system 
because their professional training is still largely 
oriented towards conventional instruction and those that 
are assigned to computer-bas ed instructional ■-’uties 
receive little guidance on how to conduct such courses. 

D. COST-'S^FECTIViNESS 

There is no evidence that one method of instruction is 
most cost-effective for all types of military traininf*. 
The most cost-effective method for a particular situation 
will depend upon such factors as type of course material, 
location of instruction, number of students, and life-span 
of the training. It is apparent that the lack of cost data 
currently available for this system makes it impossible to 
examine satisf actorily the conditions which would make a 
particular method of instruction the most cost-effective 
alternative since the system is still in the research 
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stasres. However, the type of course rraterial seerrs Ideal 
for a corrputer-tased instructior since the trainee will he 
usin? the computer in the eTecution of his duties. The 
location of the instruction in an errhedded tutorial is 
ideal because it is present in his work space so that he 
is able to refresh his skills at any tine. V-'hile the 
number of students utilizing the instruction has a bearing 
on the cost-effectiveness of the instruction, the embedded 
tutorial reduces or eliminates the cost of the computer. 
Since this system already nas the computer for onerational 
purposes, the tutorial can be stored and operated on that 
computer, with the possibility of purchasing only one 
additional console. The life-span for this system looks 
favorable for computer-based instruction since it is a new 
system that should be around for an extended time. Since 
it is a new system, the instructions will constantly have 
to be updated which is ideal for a computer-based system 
as compared to a textbook that would have to be reprinted. 

ether benefits, beyond those mentioned above, occur 
with computer-based instruction largely because the 
computer can compile records and direct the attention of 
instructors, on the basis of various algorithms. The 
following list of benefits is illustrative rather than 
complete : 

1. More precise data for improving and updating course 

materials ; 

2. Improved control over eo.uipment, facilities, and 
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rraterials for instruction? 

3. Improved allocation of resources a'^ong students? 

4. Improved ability to accommodate fluctuations in 
student loads? 

5. Increased student/instructor ratios, as well as the 
ability to use some instructors with less advanced 
qualif ications? 

6. Reduced need for support by noni nst rue t i ona 1 

personnel ? 

7. Reduced tine of students on base waiting for 

courses to start? 

S. Improved integration of records of students at 
school with those in central, computer-based personnel 
files? and 

9. Improved utilization of instructors. 
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III. TUTORIAL 



The embedded tutorial, as described in the following 
chapters, is designed to train an inexperienced 
individual, provide basic data information, and enhance 
the skills of an experienced operator. The three separate 
sections of the tutorial provide the versatility necessary 
to make this system useful because it covers the entire 
spectrum of training. As a new recruit is assigned to the 
station it would be advantageous to indoctrinate him 
utilizing the actual operational system. After a thorough 
review of the basic system, the user can start to get a 
feeling for the type of data to be processed by continuing 
the tutorial in the data display section. When the user is 
ready to actually use the operational system, it would be 
advantageous to first practice on some old data which can 
be done by utilizing the scenario section of the tutorial. 

The displays presented throughout this paper (figures 
3-1 to 6-17) are representations of the actual displays 
that are seen on the operational tutorial. The figures do 
not adequately reflect the actual display because the 
operational system is on a color graphics console. The 
outer border of each figure represents the limits of the 
screen, while each horizontal line depicts a change of 
color. For example, figure 3-2 is broken into three 
sections by the two horizontal lines. 
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A. INTRODUCTION DISPLAY 

The Embedded Tutorial Introduction display Cfigure 
3-1) provides the user with the option areas available. 
The user, dependent on his skills, can choose to follow 
any of the three sections of instruction or quit the 
entire tutorial. If he chooses to review the basic 
principles of the system (option a), then he will receive 
the fundamentals of the system, some of the environmental 
problems, and a little theory on correlation techniques. 
This section of the tutorial flows through the basic 
components of the system but allows an inquisitive 
individual the ability to delve into some additional 
details. The tutorial starts off with a simple 
introduction followed by the overall view of what the 
system is trying to accomplish. Next a list of problem 
areas related to the environment of system operation is 
provided with the option to further examine each of these 
problem areas. When the user has completed the 
environmental problems, a description of the correlation 
technique is discussed followed by a brief exhibition of 
the complex machinery of the system. Upon completion of 
this section of the tutorial the program will return to 
the display (figure 3-1) in the main program and allow the 
user to again proceed along any of the three routes, basic 
principles of the system, data information displays, or 
scenarios . 
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EMBEDEED TUTORIAL INTROLUCTICM 



This tutorial is designed to ireet the needs of an 
assortment of users, from the novice to the experienced 
operator. There are three categories that can he reviewed: 

a) The basic principles of the system are discussed and 
many of the problems associated with the system's 
environment are dealt with in this section. 

b) The type of data that will be displayed during: actual 
system operation is presented along with exolanati ons of 
the data and key areas to watch while tracking. 

c) A set of practice scenarios are presented based on the 
parameters inserted by the operator. These scenarios allow 
the user to see actual data being presented and the 
effects of various parameter settings. Key points are 
also highlighted in this section. 



type in the letter of the desired category or (c_) to cult. 



INTRODUCTION DISPLAY 
FIGURE 3-1 
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If the individual decides that the data inforn'ation 
displays foption b) is the area that needs to be covered 
next, then an assortrrent of data in the format that will 
be used in the operational case will be presented. This 
data includes: estimated positions, courses, speeds, 
probabilities of accuracy, tau values, doppler values, and 
surface plots of the suspected track. These are only 
example displays to illustrate the format of the data and 
to explain the meaning of various values. Key areas of 
interest are also explained in the lower section of each 
display. 

When the user is ready to tackle the operational 
tasks, data that has already been processed is provided in 
the scenario section (option c) to enhance capabilities 
while keeping the operational data safe from accidental 
removal. The scenario section allows the user to insert 
the parameters ana then displays the actual data in the 
same format as the operational system. It also gives a 
very brief explanation of the reason for the outcome of 
the data; i.e. The data is variant due to the low 
coherence level. With this informiation the user can return 
to the parameter setting display and adjust the values to 
obtain a better set of data. This is very useful in a new 
system because there are no values to which the paramieters 
can be set which automatically achieve the best results 
each time. The scenario section is a good starting place 
and also an excellent place for an experienced operator to 
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improve performance and practice different types of 
parameter settings without damaging the operational data 
or downgrading operational performance. 

B. INSTRUCTIONAL DISPLAY 

The instructional displays, an example is figure 3-2, 
provide the user with the basic understanding of how each 
display will be set up. Each section has slightly 
different characteristics so there is a different 
instructional display to explain each section of the 
tutorial . 

Each instructional display follows a basic pattern: 
menu, illustration, and explanation. The menu provides the 
user with the possible options available to him at any 
time. They include: "Continue" which will proceed to the 
next basic illustration; "Return" which will return the 
program to the initial display; and, option categories to 
proceed to any of the possible areas of further detail 
desired at that time. The illustration area of the display 
varies from a picture of the situation, to a display of 
data, to the correlation formulas. The illustrations try 
to cover as much information as can normally be digested 
in a single frame and then the explanation section tries 
to clarify any additional problems. The explanation 
occasionally causes the user to be uncertain about some 
point. Additional information can generally be obtained by 
proceeding to one of the option areas. 



27 







\ 




^'enu of the next possible ootion areas is presented here 



Basic diagrams will be illustrated in this area. They will 
depict a view of the overall system, environmental 
problems, and detailed displays of questionable areas. 
Peview of this section before reading the explanation 
below will be helpful in succeeding displays. 



An explanation of the middle area will be displayed in 
this section. Generally it will be a simplified review of 
the basic concept with a few new ideas. If the new ideas 
ere not fully understood, they will bp listed in the menu 
to be pursued later. 

type c to continue 



INSTRUCTION DISPLAY 
FIGURE 3-2 
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IV. BASIC SYSTEM TUTORIAL 



This chapter describes an embedded tutorial written for 
an ASW system presently being developed for the United 
States Navy. This section of the tutorial is designed to 
indoctrinate a new operator in the basic characteristics and 
problems of the system. 

A. INTROEUCTION DISPLAY 

The introduction display (figure 4-1) provides the user 
with the basic concepts necessary to understand the system's 
purpose. It prepares the user for the general flow of the 
tutorial and the option areas that will be available for 
further study. If an individual only types ”c” to proceed to 
the next display, then a basic overview of the system and 
its environmental problems will be presented. However, the 
user has the option to branch into the greater details of 
many of the problem areas and formulas. 

B. OVERALL SYSTEM 

The second display (figure 4-2) familiarizes the user 
with the purpose of the system, provides a possible 
configuration of arrays, and the target area that is to be 
covered. There is no greater detail available at this point, 
so the only options are to continue or return. If the 
operator chooses to return, a new disolay will be presented 
which asks him '10 YOU REALLY WANT TO RETURN TO THE MAIN 
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PROGRAM? (y / n)'. If he responds 'y' the prograrr will shift 
back to the main program, hut if anything else is typed the 
program will return the previous display to continue. 

C. ENVIRONMENTAL PROBLEMS 

V/hen the continue option is taken a new display (figure 
4-3) appears on the screen describing the problems 
associated with the environment that the system must work in 
to detect targets. It discusses the problem of extraneous 
noise always present in the ocean, the time delays in 
receiving the signals due to long distances, and the problem 
of sound traveling at various speeds. All of these problems 
are touched on in this one display, with further explanation 
in subsequent displays. 

The next set of displays demonstrates one area wnere a 
computer based embedded tutorial is far more proficient in 
training than a normal textbook could possibly be. There are 
six displays, figure 4-4 through figure 4-9, which can be 
presented from this point and then repeatedly cycled through 
in any order desired by the user. Presently there are only 
six displays, but this is only a sample of an enbedded 
tutorial, there could be 20 or 30 or more displays open to 
the user to traverse in any manner desired. This allows the 
user to control the order of areas of learning corresponding 
to his interests and curiousity. 

The first environmental problem that the system must 
overcome is the presence of vast amounts of noise always 
present in the ocean. In the frequency ranges that the 
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surveillance system is concerned with, the principle source 
of noise is other ships in the ocean. Once the noise is 
generated it will travel great distances but will dissipate 
and thus be useless in detection. It is very similar to 
trying to listen to a single person in a large noisy party? 
the person's voice is di stinguishable but the background 
noise makes it rather difficult to clearly understand it. 
Figure 4-4 illustrates how the desired frequency of the 
vessel stands out with the noise slightly lower. 

If 'd' was typed while in any of the displays (figures 
4-3 thru 4-9) a presentation of the problem associated with 
large distances would appear on the screen. This display 
(figure 4-5) compares two possible arrays trying to detect a 
target in a specific area, where one is 1200 miles and tne 
other is 500 miles from tne source of the signal. This 
creates two problems. One is due to the large difference in 
distances which causes time delay problem, s (figure 4-6), and 
the other problem is due to tau line separation (figure 4-6 
and 4-7). At this point the user can choose to follow up on 
either problem or possibly one of the other four options. 

The tau lines display (figure 4-6) describes what the 
tau lines are and how they are involved in the system. Tau 
lines are a time delay between reception of the same signal 
by two different arrays. Thus if a signal is produced 
anywhere on a line equidistant from both arrays, it will 
reach the arrays at the same time, this line is the zero tau 
line. Likewise, any signal produced on line 3-4 (figure 4-6) 
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will arrive at array "a” 500 seconds prior to the sane 
signal arriving at array 'b''. As line 3-4 demonstrates, 
these tau lines are hyperbolic in shape and they get more 
bent as the line moves closer to either array. This bending 
results in the distance between any two tau lines not being 
constant. As the tau line problem display (figure 4-7) 
illustrates, separation of lines near point 4 is nearly 225 
miles, while they began only 50 miles apart. Another problem 
is that, over the same distance, different tau lines, i.e. 
1-2, only separate to approximately 65 miles. Thus, 
depending on the position of the area to be covered, 
accuracy can diminish quite drastically. From this point in 
the tutorial, the user can examine more problems, review 
this problem, or continue on to the next general area. 

If the user decides to proceed with sore new problem, 
areas, two more have been implemented, time delay and water 
temperature. The time delay display (figure 4-8) afrain shows 
the basic picture of the surveillance area, but then 
discusses a new problem. It explains that a signal produced 
at point ”a’’ can arrive at two different arrays separated by 
a large time difference. This problem has to be accounted 
for by the computer. 

The last display in this section of problems deals with 
the speed of sound in water and how temperature, salinity, 
and depth effect the speed. The display (figure 4-9) 
illustrates the variance of speed with depth. As the depth 
is increased the speed of sound initially slows down until 
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roughly the 1000 yard depth and then it starts to increase 
gradually. As explained in the write-up under the graph, 
speed of sound also increases as the tepperature and 
salinity increase. Again the user has the opportunity to 
continue reviewing any of these problem areas, continuing 
the tutorial, or returning to the main program. 

B. SYSTEM BREAKDOWN 

Continuing the tutorial presents the user with an 
estimate of the area this system covers. The display (figure 
4-10) illustrates that the coverage is about the size of the 
state of Montana, for an arbitrary operating distance in 
this example in excess of 1500 riles. This display also 
shows that the area can be brolcen down into smaller, more 
manageable regions of about 40 miles square. Thus there are 
100 regions in this surveillance area and they can be 
covered by XXX correlations per hour. The XXX was purposely 
displayed to show where the vast abilities of the computer 



could be shown. 



BASIC TUTORIAL INTRODUCTION 



This emhedded tutorial is designed to provide the 
novice user with an introduction to the AS';,' surveillance 
system. The system is designed to detect vessels at 
extreme distances, in excess of 1000 miles, in order to 
protect our coast and shipping lanes from enemy submarines 
and other ships. 

I^any of the following displays exhibit the fundamental 
concepts of the system and then allow the user to delve 
into the details when desired. Observe the menu at the top 
of each display to see what options are available at any 
given time. 



type c to continue 



FIGURE 4-1 



BASIC TUTORIAL INTRODUCTION 
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FIGURE 4-2 



OVERALL SYSTEl^ VI^^’W 
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type==> Continue, Distance, Tirne, V'a ter ( temp ) , Kcise, ^eturn 



'The above menu lists many of the problems associated with 

the system due to its environment: 

1) Distances are quite large, on the order cf 15C0 miles 
in this example. 

2) Time delays caused by differences in the time of arrival 
of the signal at two different arrays. 

3) V.'ater temperature and salinity variatio’^.s affect the 
speed of sound. 

4) Noise created by other vessels distorts the reception of 
the desired signal. 




(LAND) 



FIGURE 4-3 



FMVIPONmFfJTAL PPOBLFMS 



36 



type ==> Continue, Distance, Tiire, Wa ter( temp) , Peturn 



VOLTAGE 

(volts) 




The detection of a specific signal is adversely affe^'ted 
by additional noise. This detection can be compared to 
trying to listen to a specific person at a large noisy 
party. The majority of signals detect ed in the range of 
10Hz to 400Hz are generated by other vessels. However, 
greater distances cause these signals to be weaker and 
untraceable. 



FIGURE 4-4 
NOISE PROBLEf'S 
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type=>Cont inue, Ti.xe, Waterf temp ) , Lines(tau), Noise, Return 




This system is required to detect targets at very large 
distances. These distances range from relatively few miles 
to in excess of 150? miles in this example. The Ion? ranges 
cause problems of diffusion and larre separations in the 
tau lines. When the detection of a signal is accomplished 
hy two arrays that are at different distances from the 
source of the signal, a time delay must he computed in 
order to pinpoint the position of the source. 



FIGURE 4-5 



DISTANCE PRCELEN' 
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type=>Continue, Noise, Time, Water(temp), Line^proTj), Heturo 




A 

3 500 TAU LINE 

1^0 TAU LINE 



B 



Tau lines are measurement lines distinguishing the time 
arrival of the signal at two different arrays. If arrays A 
and are 1000 miles apart then a signal oroduced midway 
"between A and B (point 1) would arrive at both arrays at 
exactly the same time. Additionally any signal produced on 
line 1-2 would arrive at both arrays s imul taneously . In th® 
same manner, signals produced on line 2-4 arrive at the 
arrays with the same amount of time delay in all cases. 



FIGURE 4-6 
TAU LINES 
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type==> Continue, Noise. Tire, Tistance, Waterfteru), Peturn 




Since the tau lines are hyperoolic in shape, another 
prohlem arises in that the spacing between any two lines 
does not remain constant. The lines at points 1 and 3 are 
spaced 50 miles apart. The lines 1-2 separate to 65 miles 
by the time they reach point 2, whereas lines 3-4 spread 
to 225 miles by the time they reach point 4. This variance 
can cause drastic differences in the accuracy of the si^rnal 
received, depending on the position relative to the arrays. 



FIGURE 4-7 



TAU LINE PROBLEMS 
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FIGURE 4-S 
TIME-DELAY PROPLFMS 
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type ==N Continue, Noise, Distance, Time, Return 



DEPTH 

(yards) 



VELOCITY 

(yards/sec) 



3000 



6000 




The velocity of sound varies as a function the water 
temperature, salinity, and depth. In the first 3CP yards 
from the surface, velocity is mainly affected hy tempera- 
ture and salinity, after which depth (pressure) is the main 
factor. As temperature and salinity rise, the velocity of 
sound increases. As the pressure increases due to the 
depth, the velocity of sound also increases. These 
variances are not severe but when the measurements are 
in tenths of a second, any change will cause ineccuracies . 



FI OURS 4-9 



WATER T3YPSRATURS RROELSr^S 
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FIGURE 4-10 



4RFA BRFA5D0VN 
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E. HYDROPHONES 

The next portion of the tutorial provides an explanation 
of the hydrophone, the arrays, and steering the arrays 
toward the area of surveillance. Figures 4-11 through 4-1? 
illustrate the basic principles of correlation and the 
characteristics of the hydrophone arrays. As figure 4-11 
exhibits, the area covered by a single beam increases with 
distance from the array and accuracy decreases 
proportionately . 

The hydrophone array is a long tube, about the size of a 
large fire hose in circumference and roughly 2,200 feet 
long, containing approximately €2 hydrophones. Each 
hydrophone works in the same manner as a sound speaker in 
reverse, it receives the waves of sound and converts them 
into electrical signals. Figure 4-12 illustrates the rough 
shape of a beam formed by the hydrophone array. This shape 
varies in width and length with frequency, a hi<?h frequency 
beam, for example, being snort and narrow. 

As figure 4-12 illustrates that the beam is directed 
straight out perpendicular to the array when no corrections 
are made to it. However, it can be directed as figure 4-13 
illustrates. The shifting of the direction is accomplished 
by delaying the signal received by some of the hydrophones 
longer than others. Since there are about 60 hydrophones, 
there can be about 60 possible combinations producing 
roughly 60 beams to cover the area. 
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FIGURE 4-11 



CORRELATION 
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type ==> Continue, Array (pointing), Ellipses, Peturn 



NOISE 1 ^ 




L 


WAVE 

l 1 




I BEAM 
1 PATTERN 

/ J J 












Ir 









HYDROPHONE ARRAY 



The system for collecting signals is an array of 
hydrophor.es, roughly 2020 feet long containing 60 cassive 
sonar devices. If no adjusting (pointing) of the array is 
done, then only noise waves coming In directly abeam of 
the array will be detectea. The noise arrives at the array 
in the same manner that a wave crashes on the beach, some 
co'T's in straight a’ld others hit at an angle. 



FIGURE 4-12 
HYDROPHONES 
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type ==> Continue, Hydrophones, Fllipses, Return 




In order to cover a large area with a single pair of 
arrays, the beams must be able to be pointed in several 
directions. This is accomplished by using a time shift in 
the receiving of a signal at various hydrophones along the 
array. There can be roughly as many beam patterns as there 
are hydrophones and the beam patterns are generally 
overlapped to ensure that the entire area is covered. 



FIC-URF 4-13 
ARRAY POINTING 
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F. FLLIPSSS 



Vhen contact is made by an array, the area of probable 
contact is a very long narrow ellipse centered along a tau 
line. When two different arrays detect a signal then the 
ellipse is centered at the intersection of the tau lines, 
and its shape is dependent on their angle of intersection. 
As the display (figure 4-14) shews, when the angle of 
intersection of the tau lines is nearly perpendicular, the 
ellipse approaches a circle and therefore there is a much 
smaller area of probable contact. As the tau lines become 
more parallel the ellipse becomes longer and the probable 
contact area increases. When more data is accumulated on the 

signal, additional ellipses can be drawn as the display 
(figure 4-15) demonstrates. The additional ellipses are 
nearly totally confined within the previous ellipses, thus 
reducing the probable contact area even further. If the data 
received alternates between different sets of arrays, as the 
first three ellipses illustrate, then the area of probable 
contact shrinks rapidly. If the data comes from the same set 
of arrays then the ellipse becomes longer and narrower and 
eventually exceeds prior ellipses in total area. 

The display (figure 4-15) demonstrates how graphics can 
animate displays to m.ake them appear as if they were being 
drawn by an instructor. When the original display is 
presented, only the two outermost ellipses are drawn in the 
middle section. Then as the user finishes reading the 
explanation of combining ellipses he has the option of 
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seeing nore ellipses con:bined by typing > ' cr continuing 
the tutorial by typing 'c'. If more ellipses are desired 
they will be drawn one at a tixe with a two second delay 
between them. Another feature of this display is that it can 
be reached by two different routes. First it will be 
displayed when the user requests more detail in earlier 
displays (figures 4-11 and 4-14) or by following the basic 
simplified route. Whichever route is followed this display 
will occur at least once. 

G. ENTIRE SYSTEf" 

Now that the user has seen what the system is trying to 
accomplish, a simplified view of the comulexity of the 
system is displayed (figure 4-16). This display and its 
detailed subsystems prepare the individual for the actual 
use of the system. 

If the user decides to probe into the inner workings of 
the system, he has the opportunity at this point to see the 
basic technique and some of the formulas used in solving the 
correlation. The first display (figure 4-17) describes the 
use of coherent versus incoherent calculations. This display 
demonstrates that straight text can be inserted into the 
tutorial? however this is not a very cost effective 
utilization of the computer. The second display (figure 
4-18) illustrates the form.ulas that are used in computing 
the correlation. This display demonstrates that formulas, 
though difficult to display, can be presented in a clear and 
complete manner. Again this is not an efficient method of 
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conpuni ca t ing this information, hut it does demonstrate that 
it can he done. 

Some of the variables used in the calculations can he 
varied hy the tracker to obtain a better picture of the 
actual situation. This display ^figure 4-19^ provides the 
user with just a few of the possible variables and their 
upper and lower limits. If during the scenario or actual 
system utilization, the tracker attempts to exceed these 
limits the computer will not allow him to input the changes. 
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type==> Continue, Fllipses (combined), Hydrophones, Return 



DIAGRAM B 

I 



V/hen a correlation is made from data received at two 
arrays, an area of probable contact is established. 

The area of probable contact forms an ellipse, 
as in diagrams A and B. When the tau lines are nearly 
perpendicular, the ellipse anproximates a circle which 
indicates a high probability of contact within a small geo- 
graphic area. However, if the tau lines intersect at relat- 
ively small angles, the result is a very long ellipse, 
indicating a lower probability of contact within th® area. 



DIAGRAM A 




FIGURE 4-14 



ELLIPSES 
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type ==> Continue, Ellipses, Hydrophones, Return 




Area around A is now the probable contact area. 

When several pieces of data are gathered about a specific 
signal, then the ellipses can he corrbined to reduce 
the area of probable contact. As the diagram illustrates, 
the second set of data forms an ellinse which is inside the 
first ellipse. Additional data can be used to establish 
additional ellipses and eventually improve the detection 
of targets. 

Type 'm' to see how additional ellipses are combined. 



FIGURE 4-15 
COMBINED ELLIPSES 
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type==> Continue, Techniques ( correle ti on ) , Filters, Return 




A hrief overview of the entire system demonstrates the 
amount of complex machinery reo.uired to accomplish this 
survei 1 Ian ce . Signals are received at the arrays ard are 
transmitted to the lase station, then sent via satalite to 
the Support Center (SC). In the SC the data is sent 
through filters and a correlator, where the computer 
establishes two sets of data (peak data files and surface 
plots). The peak data and surface plots are reviewed by 
the operators to determine any possible target tracks. 



FIGURE 4-16 
ENTIRE SYSTEM 
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type =='> Continue, Rules (fornulas). Filters, Return 



STATEMENT C? THE TFCH^HCUE 
Given two sequences of time series 
data, a function represents the derree 
of match of the two time series as a 
function of adjustment of the delay and 
of adjustment of the relative Doppler 
ratio between the two series. The term 
"coherent'', applied to this function, 
implies that the relative phase 
evolutions of the time series are used 
ip determining the decree of match, 
rather than discarded as in an incoherent 
calculation. The time series of interest 
are finite, discrete, frequency-shifted, 
band-limited, complex time series 
obtained from passive sonar sensors 
(hydrophone arrays). 



FIGURE 4-1 

CDHRELATION TECF.NIOUE 
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type =='> Contlr.ue, Filters, Return 




where X(a,t) is the modulus correlation coefficient 
a is the relative doppler ratio compensation 
t is the delay compensation 
A is the normalization constant 

and X 2 are time series sampled at time intervals T 
FI and F2 are the center frequency of the passband for the 
time series 



The basic correlation structure can be seen in equation 1, 
as the rodulus of norrralized suit of products of the 
tire series sarples (with one series conjugated). The other 
two equations are used for delay and Doppler compensation 
of the time series prior to c orrela ti o’" . 



FIGURF 4-lS 
CORHSLATION FORMULAS 
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type ==> Continue, Return 



LO.MGITUrS 

LATITUDE 

coherence limits 

TRAC:'! NUMEER 
PUN NUMBER 
REGION NUMBER 



^ANC-ES 
U0 .00-50 ,eu 
150 .00-130.00 
0 . 0-2 . 0 
1-10 
1-7 
1-25 



Listed above are a few of the ■nara'^8ters that can 
be adjusted to ,=ret a better track of a vessel. Other 
parameters are demonstrated throughout the tutorial and if 
the limits are exceeded, the computer will adjust and 
notify the operator. 



EIOURE 4-19 



PARAMETER VARIAELES 



V. TATA DISPLAY TUTORIAL 



This section of the tutorial is designed to preoare a 
tracker for the types of data that will be presented 
during operational conditions. It provides sortie 
representative samples of data in order to explain 
explicit details about the values in certain categories. A 
review of this part of the tutorial would be advisable for 
all trackers as a routine before each watch they stand 
because it provides many of the basics of each data 
representation. Such a review would ensure that the 
operator will not totally forget characteristics of the 
system during periods of disuse. 

This section of the tutorial begins with an 
introductory display (figure 5-1) which presents the basic 
concepts of this section and then describes the importance 
of a thorough unaerstanding of each data display. None of 
the data displays can be overlooked by a tracker since the 
data is Interconnected in such a manner that the accuracy 
of one forms a check on another. For example, the values 
of the position-data display (figure 5-2) are checked for 
variance by the values of the covariance matricies in 
figure 5-7. This interconnection is useful in obtaining a 
good overall picture of the situation but still allows the 
user the freedom to transverse the data displays in any 
desired order. 
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DATA TUTORIAL INTRODUCTION 

This section of the tutorial deals with the types of 

/ 

data that will he displayed when a tracker is utilizing 
the actual operational syste-^. The displays give 

representative sarrples of data and then explain the 
characteristics and pci^t out key points. This section of 
the tutorial is brief hut extremely important to the 
understandi ng of the operator's joh. A quick review of 
this tutorial would he beneficial to the experienced 
operator before starting each session on the operational 
system . 

type c to continue 



FIGURE 5-1 

DATA TUTORIAL INTRODUCTION 



58 



The positional data display (figure 5-2) provides the 
tracker with basic information about the vessel's probable 
position, course, and speed. The latitude and longitude 
will not vary much whether the signals are from a target 
or noise; however, they can be used to determine a good 
starting point for setting the parameters for a surface 
plot. The courses and speeds will vary depending on the 
type of signal that, is being received and thus should be 
closely examined. For an experienced operator, the 
covariance matrix display (figure 5-7) can be o_uite useful 
in determining the validity of a suspected track. 

The peak data display (figure 5-3) provides the 
operator with some rather difficult numbers to comprehend. 
The STK/Bt^ numbers are the numerical representation of the 
array and the direction of the beam. It is important to 
recognize when a different array is receiving the signal 
because this can increase the accuracy of triangulaticn . 
The tau values are important because they will vary in the 
same manner as the courses and speeds; however, this 
variance can only be detected when using the same pair of 
arrays. A large jump in tau values, as in figure 5-3, is 
another indication that two different pairs of arrays are 
detecting the same signal, but the variance in values from 
a single pair of arrays is quite good. The doppler values 
will also vary and should be watched closely when tracking 
a surface vessel . 



59 



type ==> 


Continue, 


H 0 1 u r n 






PU^' 


NUf^BER e 


REGION NU3^ER 6 


TRACK NUMBER 9 


l^ater Tirre 


Peak 


Position Coordinates 


Courses and Speeds 


23-Eeb-S0 


Munber 


Lati tude 


Long! tude 


Course Speed 


14:58:03 


0 


39.50G0 


147.5000 


0.0 0.00 


14:58:03 


3427 


39.4711 


147.4707 


142.0 5.39 


15 :04:23 


3533 


39.4682 


147.4552 


154.’’ 5.52 


15:14:30 


3449 


39.4212 


147.4189 


153.9 5.96 


15:33:35 


3540 


39.3582 


147.4417 


160.3 6.09 


15:46:44 


3452 


39.3980 


14’’. 4815 


161.6 5.59 


This data illustr 


ates the es 


tirrated position, course and 


speed of 


a possibl 


e target. 


When the data is relatively 


constant , 


as in the 


above display, it is 


probable that 


the signals were 


generated 


by a vessel. If the 


courses were 159.2, 


135.6, 160 


.4, 122.7, 


150.3 then the 


data would 


pro bably 


be due to 


extraneous 


noi se . 



FIGURE 5-2 



PCSITION-EATA 
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type ==> Contir.ue, 'Return 



PUN NUMBER 6 REGION NUMBER 6 TRACK NUMBER 9 



Peak 


-Ref Station- 


-PRD Station- 


Peak 


Da ta 


Number 


STM/BM 


Freq 


STM/BM 


Freq 


TAU 


DOPPLER 


? 


0 


0.00 


0 


0.00 


0.0 


. 000 0 


3427 


1323024 


41.40 


1322029 


41.40 


-416.7 


-.0000 


3533 


1322031 


41 .40 


2411020 


41 .40 


27.3 


.0000 


3449 


1323024 


41.40 


1322030 


41 . 40 


-412. B 


-.0000 


3540 


1322031 


41.40 


2411321 


41 .43 


19.2 


.0000 


3453 


1323025 


41.40 


1322030 


41 .40 


-420 


-.0000 



This data display presents the pea^c num'bers, the array 
that received the signals. the freauency of the 
signal, and peak data. The variances in the Tau and Eoppler 
values can give evidence as to the validity of the track. 
*^he variance in the Tau values from -416.7 to 27.3 to 
-412.8 etc. means that the ellipses will -Drohahly corhine 
very well because the data is being collected from two 
different sets of arrays. 



FIGURE 5-3 
PEAK-CATA 
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The accuracy data display (figure 5-4) is a good 
indication of track validity tecause the Chi-Square 
probability scores describe the consistency of the 
received data. The more data received about a certain 
track, the better the exact location can be determined. 
The cumulative Chi-Square score is an excellent quick 
reference because the score is constantly normalized to 
present a true indication of the probability. It does not 
matter how many scores are obtained because they are all 
averaged. The cumulative score will approach one (1,0) if 
the signals being received are from a target. 

The surface plots (figures 5-5 and 5-6) represents the 
signals received in another fashion. They are compiled by 
taking all of the data received by array pairs and then 
filtering the data through a coherence filter that removes 
all signal data below the level set. Then the data is 
displayed for the region that the tracker has set for 
surveillance. Both the coherence limit and the regional 
area are set by the operator in the attempt to locate a 
target . 

The last display in this section of the tutorial is 
the covariance matrix display (figure 5-7) which 
illustrates the complexity of the system as it presently 
stands. It takes either a mathematician or a very 
experienced tracker to evaluate the matrices displayed. 
For this reason an algorithm is being developed by a Navy 
contractor to simplify this data. However, at this time. 
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it is still 
data, and is 
algorithn is 



i.Tportant to the evaluation of the previous 
being displayed in this fashion until the new 
completed . 



63 



type 


==> Continue, Return 










RUM MUMPER 6 REGION NU^^PER 6 


TRACK MUMPER 


9 


Peak 


Prob — CHI Souare Scores — 


Meas residuals 


N umber 


Score Stagewise 


Cumula ti ve 


Del tat 


Deltaf 


0 


0.00 0.0000 


0 . 0000 


0.0000 


0.0000 


342? 


-1.S0 0.3171 


0 .3171 


1 .7978 


-0 . 0405 


^ 


-4.89 0.0162 


0.1667 


0 .6344 


0.0193 


3449 


-3.99 0.4410 


0.2581 


3.3146 


-0.0036 


3540 


-4.66 1.4096 


0 . 2460 


-7 .4522 


0.0114 


3453 


-4. PI 2.0796 


0.8527 


-8.3141 


0.0043 


3421 


-4.31 1.8945 


0 .8892 


-6 .4137 


0.0125 


This 


data shows the 


same peaks, 


their Chi 


Square 


probabilities of actual 


position, and their measured 


residuals. The Chi Square 


scores are 


broken into two 


groups 


, individual scores 


and the cumulative total 


. The 


cumulative score is a e“ood 


check as to 


the probability of 


an act 


ual contact, scores 


near 1.0 are 


quite good. 





FIGURE 5-4 
ACCURACY-DATA 
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type ==> Continue, Samnles, Return 



REGION NUMBER 8 
COHERENCE LIMIT 1.0 




By exaninini? a surface plot the operator may he able to 
recognize a pattern of peaks that would establish a 
target's track. Care must be taken when viewing the surfa^'e 
plots because the size of the area (range of latitude 
and longitude) can be varied, thus giving the appearance 
of a track when there might not be one. 



FIGURE 5-5 
SURFACE-PLOT 
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type ==> Continue, Samples, 



REGION NUMBER 5 
COHERENCE LIMIT 1.0 



Return 




This surface plot shows a very urohable track, indicated 
by the arrow. Because the size of the plot is relatively 
small (60 miles square) and the coherence limit is 
relatively hieh ( 1.0 ), this is probably a track of a 
target and should be further investigated. 



FIGURE 5-6 
SAMPLE SURFACE-PLOT 
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type 


==> Senerios, 


Tutorial (again) 


, Return 




Peak 


^UN NUMPER 6 


REGION NUMBER 


6 TRACK 

M A TVO T Y — 


NUMBER 9 




— ""—LiUV Au lArtO ili 


n A i A 1 A 




Number 










3427 


e. 03136 


0 . 00000 


-0.03150 


0.00000 




0.00000 


37.88962 


0 . 00000 


-48.49765 




-0. 03150 


0.00000 


0.07311 


0.00000 




0.00000 


-48.49765 


0.00000 


62 .21477 


3533 


0.00985 


0 . 00047 


0.00551 


-0.00001 




0.00047 


0.31107 


0.00176 


0.19371 




0.00551 


0.00178 


0.00944 


-0.00179 




-0.00001 


0.19371 


-0 .00179 


0 .13686 



This display illustrates the covariance iratrices which can 
be used to determine the accuracy of the estimated courses 
and speeds. An experienced operator could determine this by 
examining each 4X4 matrix. However, this is difficult and 
time consuming. Efforts are being made to have this handled 
by the computer. 



FIGURE 5-7 
COVARIANCE f^ATHICES 



67 



VI. SCENARIO 



A. PURPOSE 

The scenario is an important part of the learning 
experience offered in this tutorial because it offers the 
user the opportunity to practice the skills that have been 
teuffht. Parameters can be inserted and the data displayed 
as it would actually be shown on the tactical system and 
also advicp could be given as to the quality of the data. 
This actual hands-on training has many benefits over 
conventional methods. It reduces the anxiety of the user 
when finally confronted with a tactical mission, gives him 
key noints that can be expanded in future lessons, 
refresher training at his work place, and a wide variety 
of options to try on tactical data outside a mission. 

A great deal of anxiety and frustration generally is 
experienced by the individual when he starts a new 
endeavor. Any reduction of this anxiety would be 
beneficial to the performance of the individual and thus 
improve his value as an operator. With an embedded 
tutorial an individual can learn the workings of the 
system and the procedures of the task while becoming- 
familiar with the computer operations. This scenario is 
designed to give the user several different looks at the 
kind of data and displays that he will be working with 
every day. A tutorial on the actual system would be far 
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■better than the mock-up used in this study because the 
usin^ of actual data would enable the user to see many 
more combinations cf parameters. This tutorial would be 
altered to analyze the parameters more carefully to 
establish what comments would be appropriate for the data 
that is displayed. 

The scenario presently has only four sets of data and 
explanations have been limited by the data available and 
the size of the computer. Since the tactical system 
receives the data directly from its storage bank, both of 
these limitations are removed. The tutorial program would 
only have to receive the data, analyze it, and make 
appropriate comments. These comments, as in the sample 
scenario, would describe tc the user the areas to watch in 
order to get the best track, and also it would help in 
making parameter settings for optimum surveillance. These 
key points would be beneficial to both the new user and as 
a refresher for the the experienced operator. 

Since the scenario is embedded in the actual tracking 
system, it is easy to have the operators run refresher 
training on tactical data outside an actual mission, 
without sending them out of the facility. This training 
could increase the capabilities of an experienced operator 
because it would serve as a reminder of some option areas 
that might not normally be utilized either because they 
are unfamiliar or because they were not very effective on 
the data that has been nreviously tried. Since each new 



track is unique in its properties, an operator rriust be 
very flexible in bis attempt to distinguish a track of a 
target from noise. 

As the data is tactical but not part of a current 
operation during a senario, it is an excellent time for an 
experienced operator to try various combinations of 
parameters in the attempt to track a target more 
accurately. An operator would not have this option during 
operation due to the necessity of constant surveillance of 
the a rea . 

B. PHOGRAr^ SETUP 

The scenario program is written to allow the expansion 
of this small sample scenario with little modification. 
The program takes the input of the user and then displays 
the data formatted in the manner that the user desires. As 
this demonstration program is limited in data available, 
only four possible sets of disnlays ca'^ be shown, each 
dependent on the parameters inserted by the user. The 
possibilities of disrlays range from excellent parameters 
to worst-case parameters with two fair sets of data 
displays in the middle. In each set of displays the user 
can see peak data, location data, accuracy data, and 
surface plots of the region. The user is also given the 
opportunity to display the parameters that ere presently 
being used and given an opportunity to alter any cr all of 
them. Piffure 6-1 shows the format of the parameters that 
can be altered by the user to improve surveillance of an 
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area. The present values shown in the figure are the 
paraTeters that the system initializei when the scenario 
was entered. These parameters will give the best-case set 
of displays and explanations, but they can be altered to 
demonstrate the effect of poor parameters or to highlight 
specific parts of certain data displays. As was mentioned 
earilier there are no set limits or firm parameters that 
will give the best-case display of data in all situations. 

C. BISPLAT EXPLANATION 

There are four sets of displays? 1'* best-case 
parameter setting, 2 ) data accumulated over too large an 
area, 3) data accumulated with too low a coherence limit, 
and 4) worst-case data which was accumulated over too 
large an area at too low a coherence limit. These displays 
will be grouped by display category to demonstrate the 
pitfalls in each type of display for certain choices of 
parameters . 

1 . Positional-Eata 

The positional data is probably the best source of 
information that the operator can obtain about a possible 
target because it provides a smaller area to search and a 
good indication of the probability of a target. 
Furthermore it is the easiest set of data to understand 
because it is given in terms that most people can easily 
grasp, position with a course and a speed. Some of the 
other displays present tau lines, doppler, and cumulative 
Chi-Scuare values. The positional data displays (figures 
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6-2 to 6-5) present the peak numbers, calculated position, 
course, and speed of a suspected tar>?et. A key point to 
observe is the variance in the course or speed because 
this would show that the track is not a firm set of data 
and that it could be noise. 

As figure 6-2 illustrates, the courses and speeds 
are quite steady and well within reason) the speeds are 
not excessive and the courses are roughly in the same 
direction. In contrast, figure 6-5 has courses that vary 
30 degrees, from 305.3 to 034.6, and speeds that jump from 
7.69 to 4.69 causing doubt that this is an actual track 
because vessels do not generally proceed in this fashion. 
These were two extremes, excellent data and worst-case 
data) however, it is difficult to determine the validity 
of the track for most data. Figures 6-3 and 6-4 show some 
more common data in which the courses and speeds vary 
somewhat but they are gradual changes rather than abrupt 
changes . 
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1 



type =='> the desired nurrber change, Continue, Return 



To change any of the present values of the parereters to 
new values, use the following format: 

PiRAMlTEP-fJU^RER , NFW-VALUE n 
For example ==> 4,1.2n changes the coherence limit to 1.2 

MENU 0? PAPii^^IT^PS 

LIMIT PARAMETER PRESENT VALUE MEV. VALUE 



1-25 


1 


. REGION 


5 


1-7 




2. RUN 


6 


1-lG 




3. TRACK 


9 


0.1-2.? 


4. 


COHERENCE 


1.0 


30.00-50.00 


5. 


LATITUDE (high ) 


35.53 


30 . 00—50 . 00 


6. 


LATITCrE( low ) 


36.00 


120.00-140.00 


7. 


LONGITUDE(high) 


124.50 


120.00-140 .00 


e. 


LONG I TUBE (low) 


125.00 



EIUURE 6-1 



MENU FOR PARAMETER CHANGES 
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1 



I 



RUN NUMBER 6 



Peak 


Posi ti on 


Number 


Lati tude 


0 


39.5000 


3427 


39 .4711 


3533 


39.4682 


3449 


39.4212 


3540 


39.3562 


3453 


39.3980 


3421 


39.4021 


3479 


39.4219 


3429 


39.4037 



REGION NUMBER 

Coordinates 

Longitude 

147 .5000 
147.4707 
147.4552 
147.4189 
147.4417 
147 .4815 
147.4739 
147.4632 
147.4297 



6 TRACK NUMBER 9 

Courses and Speeds 
Course Speed 



0.0 


0.00 


142.0 


5.39 


154.7 


5.52 


153.9 


5.96 


160.3 


6.09 


161.6 


5.59 


162.4 


5.32 


160.3 


5.71 


161.1 


5.59 



A VERT C-OCr TRACK WITH STEADY COURSES AND SPEEDS. 



FIGURE 6-2 



EXCELLENT POSITIONAL-DATA 
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RUN 


NUMBER 6 


REGION NUMBER 6 TRACK 


NUMBER 9 


Peak 


Posi li on 


Coordinates 


Courses and 


Speeds 


Number 


Lati tude 


Longitude 


Course 


Speed 


0 


38.5000 


142.5000 


0.0 


0.00 


3542 


38.4731 


142.4873 


142.0 


6.81 


347S 


38.4422 


142.4791 


150.6 


6.72 


3548 


38.4431 


142.4'^62 


147.3 


6.04 


3557 


38.4401 


142.4750 


156.4 


6 .87 


3461 


38.4324 


142.4775 


156.8 


6.94 


3640 


38.4246 


142.4689 


144.7 


6.42 


3582 


38.4263 


142 .4663 


136.2 


6.75 


3533 


38.4221 


142.4572 


149.7 


6 .35 


POSSIBLY 

COVERED 


A GOOD TRACK, BUT THE 
IS TOO LARGE. 


SIZE OF THE 


REGION BEING 



FIGURE 6-3 



LARGS AREA POS I'^IOMAL-DATA 



RUN 


NUMRER 1 


REGION NUt^BER 


3 TRACK 


NUr^BER 4 


Peak 


Position 


Coordinat es 


Courses and 


Speed s 


Nuinlier 


La ti tude 


Longitude 


Course 


S peed 


0 


33.5000 


145 .5000 


0.0 


0.00 


3325 


33.4734 


145.5398 


226.4 


7.34 


3342 


33.4669 


145 .5402 


235.6 


9.27 


3394 


33.4502 


145.5693 


243.5 


10.21 


3327 


33.4294 


145.5728 


227.9 


6.36 


3319 


33.3625 


145 .5829 


222.5 


7.03 


3364 


33.3518 


145.5962 


225.3 


7 .86 


3316 


33 . 3329 


145.6036 


233.1 


6.37 


3343 


33.2185 


145.6285 


242.3 


7 .89 


SVEN THOUGH THE COURSES ARE FAIRLY STEADY, THE SPEEDS ARE 


FLUCTUATING GREATLY 


DUE TO THE LOW 


COE^^RENCE 


Lir^IT . 



FIGURE 6-4 



LOW COHERENCE POSITION-DATA 
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RUN 


NU^IBEP. 3 


REGION NUMBER 4 TRACK 


NUMBER 7 


Peak 


Posi tion 


Coordinates 


Courses and Speeds 


Number 


Lati tude 


Longitude 


Course 


S peed 


0 


36.5000 


143.5000 


0.0 


0.00 


3560 


36.4784 


143.6534 


020.5 


4.58 


3532 


36.5348 


143.5739 


034.6 


6.27 


3571 


36 .5782 


143.4936 


025.9 


6.02 


3564 


36.6139 


143.4467 


012.3 


7.69 


3551 


36.6317 


143.4052 


005.3 


4.69 


3554 


36.6308 


143.3761 


014.7 


6.34 


3584 


36.6536 


143.3435 


018.1 


4.25 


3547 


36.6738 


143.3263 


023.5 


5.28 


POOR TRACK AS SEEN 


BY THE COURS 


E AND SPEED 


CHANGES, PP.03- 


ABIT DUE 


TO THE LARGE /REA AND 


THE LOW COHERENCE LEVEL. 



FIGURE 6-5 

V'OPST CASE POSITION-DATA 
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2. Peak-Data 



The peak data displays (figures 6-6 to 6-9) 
exhibit some rather confusing data in that most neople 
know little about tau lines and fewer people have any 
concept of numbers associated with doppler. The STf^/Pi^ 
numbers are a numerical description of the array and the 
direction in which the beam is pointing when it received 
the signal. A good track will have alternatirg ST^i/P^ 
numbers, depicting several arrays picking up the data and 
thus the triangulation will be more precise. Another place 
to observe the alternating of arrays is the tau values. 
However care must be taken not to confuse the varying of 
the numbers with the alternating of arrays. If the track 
is weak or the data is from noise it could appear to be 
alternating when it is actually Just varying a great deal. 
The tau values obtained from a single array should not 
vary a great deal between peaks. When tracking- a surface 
vessel the doppler values will be very steady and the tau 
values will fluctuate a little more than for a submarine. 

Pigure 6-6 illustrates a pattern of constantly 
switching array pairs in the reception of data about the 
track, while any data received by a single set of arrays 
does not vary a great deal. For example the switching of 
tau values from -416.7 to 27.3 to -412.6 to 19.2 shows 
that two different sets of arrays are picking up the 
signal, while -416.7, -412.8, -42f^.7 of a single array 
pair show that the values are fairly steady. In contrast 
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i 



fir^ure e-9 illustrates that signals are only being 
received by one set of arrays, that no switching occurs, 
and that while in a single array pair the tau values vary 
quite extensively, 62.1 to 25.7 in a short period. Again 
these are somewhat extreme cases and are easy to interpret 
compared to the data displayed in figures 6-7 and 6-8, 
where there is some switching and some fairly steady 
readings . 

3 . Accuracy^-Data 

The accuracy data displays (figures 6-10 to 6-13) 
illustrate some data that is good for determination of the 
quality of a tract since it provides the operator with the 
Chi-Square probability of a target being within a specific 
region, generally an ellipse. The individual scores are 
important to see that there are no drastic jumps that 
would adversely affect the cumulative score. For instance, 
a large single Individual score could greatly increase the 
cumulative score and present a false impression of a good 
track. The important scores to watch are the cumulative 
totals which should approach one if it is a definite track 
of a target. 

Figure 6-10 displays the pattern of a good 
Chi-Square accumulation in that the individual scores ere 
constantly getting better and the cumulative score is 
approaching one. The individual scores are getting higher 
and higher because the probability ellipses are combining 
and thus reducing the size of the probable contact area. 
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figure 4-17. In the worst-case accuracy data display 
(figure 6-13), the individual scores do not appreciably 
increase because all the data is being received at one 
array pair and the ellipses are combining in such a manner 
that the area of probable contact does not significantly 
shrink. 
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RUN NTJM5EP. 6 


REGION NUMBER 6 


TRACK NUMBER 9 


Peak 


-REF Station- 


-PRD Station- 


Peak Data 


Number 


STM/Bf' 


Freq 


STM/BM 


Freq 


TAU DOPPLER 


?: 


0 


0.00 


0 


0.00 


0.0 .0000 


3427 


1323024 


48.70 


1322029 


48.70 


-416.7 -.0405 


3533 


1322031 


48.70 


2411020 


41.00 


27.3 .0117 


3449 


1323024 


48.70 


1322030 


00 

• 


-412.8 -.0444 


3540 


1322031 


48.70 


2411021 


48.70 


19.2 .0229 


3453 


1323025 


48.70 


1322030 


48 .70 


-420.7 -.0400 


3421 


132203? 


48.70 


2411020 


48.70 


22.7 .0245 


3479 


1323024 


48.70 


1322031 


48. '^0 


-418.6 -.0437 


3429 


1322031 


48.70 


2411023 


48. 7C 


25.1 .0235 


GOOD 


TRACK ’ilTR 


TWO SE 


TS OF ARRAYS 


; SWITCHING BAC-K AND FORTH 


TO PROVIDE DATA. 


( NO"" 


ICE TEE TAU 


VALUES 


alternating ) 



FIGURE 6-6 
EXCELLENT PEAX-EATA 



SI 



FUN NUMBEF 3 REGION NU^^?ER 4 TRACE KUr^EER 7 



Peak 


-REF Station- 


-PRD Station- 


Peak 


Data 


Number 


STM/BM 


Freq 


STM/BM 


Freq 


TAU 


DOPPLER 


0 


0 


43.70 


(7 


48.70 


0.0 


.0000 


3542 


1333331 


46.70 


1346024 


46.70 


19.4 


.0201 


34'^8 


1333041 


48.70 


1346031 


48.70 


12.3 


.0237 


3543 


1333027 


48.70 


1346023 


48.70 


16.4 


.0394 


3557 


1322107 


48.70 


2411321 


48.70 


-426.3 


.1027 


3461 


1333034 


48.70 


1346021 


48.70 


27.8 


.0384 


3640 


1333051 


48.70 


1346039 


48.70 


18.2 


.0392 


3582 


1322114 


48.70 


2411324 


48.70 


-440.4 


.1279 


3533 


1333029 


48.70 


1346042 


48.70 


11.4 


.0369 



NOT MUCH ALTERNATING OE ARRAY PAIRS, PROBABLY NOT TOO 
GOOD A TRACE. 



FIGURE 6-7 

LARGE AREA PEAE-IATA 
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RUN NUMSSR 1 REGION NUMRER 3 TRACK NUMBER 4 



Peak 


-RE? Station- 


-PRD Station- 


Peak 


Data 


Number 


STM/BM 


Freq 


STM/EM 


Freq 


TAU 


DOPPLER 


0 


0 


48.70 


0 


48.70 


0.0 


.0030 


3325 


1341021 


48.70 


1472365 


48.70 


22.7 


.0391 


3342 


1834261 


48.70 


2437001 


48.70 


-312.4 


-.0391 


3394 


1341036 


48.70 


1472341 


48.73 


15.6 


.0488 


3327 


1834275 


48.70 


2437009 


48.70 


-328 .4 


-.0352 


3319 


1341028 


48 .70 


1472355 


48.70 


28.4 


.0592 


3364 


1341025 


48.70 


1472351 


48.70 


39.7 


.0491 


3318 


1834268 


48 .70 


2437005 


48.70 


-321.1 


-.0379 


3343 


1341029 


48.70 


1472368 


48.70 


21.8 


.0529 


FAIRLY 


GOOD SWITCHING 


OF ARRAYS 


BUT WITHIN AN »RP.AY PAIR 


THERE 


IS TOO MUCH VARIANCE DUE TO 


THE LOW 


COHERENCE 


LIMITS . 



FIGURE 6-8 

LOW COHERENCE PEAK-DATA 
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RUN NUMBER 


5 REGION NUMBER 


5 TRACK 


NUMBER 


22 


Peek 


-REE Station- 


-PRD Station- 


— Peak 


Data 


Numbe 


r STM/EM 


Freq 


STM/EM 


(D 

fO 


TAU 


DOPPLER 


0 


0 


no 

• 


0 


48.70 


0.0 


.0000 


3560 


2411031 


no 

• 


1441024 


48.70 


46.5 


.0243 


3532 


2412034 


48.70 


1442067 


00 

• 


62.1 


.0294 


3571 


2411041 


46.70 


1441028 


48.70 


36.2 


.0362 


3564 


2411036 


48.70 


1441021 


48 .70 


25.7 


.0329 


3551 


2411036 


48.70 


1441025 


00 

• 


• 

00 


.0338 


3554 


2411026 


46.70 


1441020 


48.70 


49.6 


.0195 


3584 


2411031 


48 .70 


1441024 


00 

• 


41.2 


.0293 


3547 


2411035 


48.70 


1441018 


48.70 


55.7 


.0264 



fic SWITCHING OF AREAY PAIRS, HUT A LOT OF VARIANCE 
IN THE TAU VALUES. A VERY POOR TRACK. 



FIGURE 6-9 



WORST CASS PEAK-DATA 
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RUN NUMBER 6 


REGION NUMBER 6 TRACK 


NUMBER 9 


Water Tims 


peak 


Prob 


— CHI Squar 


e Scores — 


23-Feb-80 


Number 


Score 


Sta^ewise 


Cumulative 


14:58:03 


0 


0 . 00 


0.0000 


0 .0000 


14:58:03 


3427 


-1.80 


0.3171 


0 .3171 


15:04:23 


3533 


-4 . 89 


0.0162 


0.1667 


15:14:30 


3449 


-3.99 


0.4410 


0.2581 


15:38:35 


3540 


-4.66 


1.4096 


0 .2460 


15:48:44 


3453 


-4.81 


2.0'796 


0.8527 


15:49:31 


3421 


-4.31 


1 .8945 


0 .8892 


15:50:56 


3479 


-4.75 


2.0038 


0.9327 


15:52:34 


3429 


-4.89 


2.2893 


0.9402 


OUTSTANDING 
A VERY GOOD 


CUMULATIVE 
TRACS . 


SCORE BY 


THE FINAL TIM 


E PERIOD, 



FIGURE 6-10 

EXCELLENT ACCURACY-DATA 
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RUN 


NUMBER 3 


REGION NUMBER 1 TRACK 


NUMBER 4 


'*'at 2 r Time 


Peak 


Prob 


-CHI Square 


Score s — 


?3-Feb-80 


Nurrber 


Score 


S tagewi se 


Cumulative 


16:52:56 


0 


0 . 00 


0 . 0000 


0 .0000 


16:52:56 


3542 


-1 .49 


0.1435 


0.1435 


16:55:37 


3478 


-1.27 


0.2159 


0.1537 


16:58:ie 


3548 


-1 .82 


0.5382 


0 .3829 


16:59:19 


3557 


-1.95 


0 .6547 


0 .4690 


17:03:02 


3461 


-2.56 


1.1021 


0.7023 


17:05:56 


3640 


-1.13 


0.2371 


0 .6501 


17:09:42 


3582 


-2.03 


0.6829 


0.6928 


17:11:48 


3533 


-3.05 


0.7928 


0 .7520 


THE CUr^ULATIVF SCORE 
SCORES IS VERY HIGH. 


IS F^IR 


BUT NONE OF T^R INDIVIDUAL 



FIGURE 6-11 

LARGE AREA ACCURACY-DATA 
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RUN 


NUMBER 2 


REGION NUMBER 3 TH/ CX 


NUMBER 6 


j^ater Tirre 


Peak 


Prob 


— CHI Square Scores — 


23-Feb-8P 


N umber 


Score 


S ta^ewi se 


Cumulative 


■26:12:37 


•0 


0.00 


0 . 0000 


0 .0000 


06:12:37 


3325 


-0.83 


0.2134 


0.2134 


06:13:26 


3342 


-1.52 


0.4327 


0.3463 


•36:14::03 


3394 


-1.83 


0.5621 


0 .4743 


06 :14:57 


3327 


-1.97 


0.7631 


0 .6411 


06:16:32 


3319 


-2.24 


0.6428 


0 .6229 


06:17:29 


3364 


-2 . 56 


0.8817 


0.7536 


06:18:54 


3318 


-2.72 


0.9443 


0.7836 


06:20:21 


3343 


-2.74 


0.9218 


0 .7721 


T^AIR CUr^ULATIFE VALUES, BUT LOW 
LOW COHERENCE LIMITS. 


INDIVIDUAL VALUES DUE TO 



FIGURE 6-12 

LOW COHERENCE ACCUPACT-DATA 
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RUN 


NUi^RER 6 


REGION i 


MUMRER 4 TRACK 


NUMRER 7 


Water Time 


Peak 


Prob 


— CHI Square 


Scores — 


23-'^eb-9!? 


N iim'ber 


Score 


S tagewi se 


Currula tive 


21 ;36:04 


0 


0.00 


0.0000 


0 .0000 


21:36:04 


3560 


-0.90 


0.1^21 


0 .1021 


21 :37:09 


3532 


-1.43 


3.2341 


0 .1735 


21:37:52 


3571 


-1.76 


0.3417 


0 .2638 


21 :39:38 


3564 


-1.93 


0.3176 


0 .4173 


21:39:41 


3551 


-2.36 


3.3614 


3 .4328 


21 :40:02 


3554 


-2.54 


0.4027 


0 .4455 


21:40:58 


3584 


-2.36 


0.3311 


0 .4637 


21 :41 :44 


3547 


-2.21 


3.3517 


0 .4528 


VERY LOW CUMULATIVE 


SCORE. A 


VERY POOR Ti^AGK. 





FIGURE 6-13 

WORST CASE ACCURACY-DATA 
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4 . Surfacp^Plots 



The surface plots can reveal a great deal about 
the actual situation in any area without picking any 
special track to correlate on because it displays the 
entire range of frequency values in that area. When the 
area is of proper size for the type of surveillance that 
is being conducted and the coherence limit is set high 
enough to reduce roise yet low enough to detect the 
required signal, then a surface plot can assist the 
operator in distingui shing a valid track. 

Figure 6-14 illustrates the type of display that 
could help the operator to concentrate his efforts in the 
area on the left side of the nlot. Care trust be taken as 
to the size of the area and the level of the coherence 
limit because they could cause a surface plot to present 
the operator with a false impression of the actual 
situation, as figure 6-16 illustrates. 

D. SUMMARY 

The scenario section of the embedded tutorial is 
important to the development of qualified operators 
because it gives them the opportunity to refine their 
skills on tactical data and to experiment with different 
combinations of parameters. This is especially important 
in the early stages of developmen t since there are no 
concrete guidelines for obtaining the best picture of the 
surveillance area. 
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type ==> Menu, Location, Peaks, Accuracy, Surface, Peturn 



REGION NUMBER 6 
COHERENCE LIMIT 1.3 



GOOD SOLID PATTERN DOWN TEE LEET SID^ OF THE REGION. 




FIGURE 6-14 

EXCELLENT SURFACE-PLOT 
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type ==> N'enu, Location, Peaks, Accuracy, Surface, Peturn 



REGION NUMBER 1 
COHERENCE LIMIT 1.0 



NO PATTERN IN THIS LARGE AREA. 




FIGURE 6-15 

LARGE AREA SURFACE-PLOT 
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type =='> t^enu. Location, Peaks, Accuracy, Surface, Return 



REGION NUMBER 3 
COHERENCE LIMIT 0.6 




TOO NUCH NOISE DUE TO THE LOV COHERENCE LIMITS 



EIGURE 6-16 

LOW COHERENCE SUPE'iCE-PLCT 
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type ==> f^enu, Location, Peaks, Accuracy, Surface, Return 



REGION NUMBER 4 
COHERENCE LIMIT 0.6 




A LOT CP NOISE DUE TO TOC LOW COHERENCE LIMITS AND 
TOO LARGE AN AREA TO COVER ADEQUATELY. 



EIGURS 6-17 

WORST CASE SUREACE-PLOT 
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VII. CONCLUSION 



The data obtained tends to indicate that computer 
assisted instruction is superior to conventional training 
when the trainee will eventually be working on a computer 
or console. This can be attributed to certain individuals 
being more inclined toward this type of work and thus the 
use of a computer based instruction seems quite natural. 
The failures in the use of computer based instruction tend 
to be in fields that require more manual dexterity, i.e. 
machinist mate and boiler technician, or where the trainee 
has a much lower initial aptitude. If the trainee has poor 
reading skills, this type of instruction will highlight 
all of his weaknesses, whereas some individuals can 
acquire a great deal of knowledge by listening to an 
instructor . 

The disadvantage of computer based instruction in 
almost every case is the cost of the intial system 
compared to the cost of a teacher for the same number of 
students. An embedded tutorial reduces the cost since the 
computer is already paid for by its operational 
requirement. The only expense is possibly of an additional 
console and the cost of the instructional code. The extra 
console could be used as a spare for the operational 
system and the instructional code should not be too much 
more expensive than the printing of a textbook. 

By the demonstration of the instuction presented in 
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this paper, it is hoped that future research can he done 
in the area of computer based instruction for the 
appropriate fields. The flexibility of the instruction, 
the ease of manipulation, and the variety of possible 
displays all point to the vast capabilities of a color 
graphics tutorial. 

A. RECOMMENDATIONS 

Further research should be conducted into the use of 
computer assisted instruction for certain types of jobs, 
i .e . ASW surveilance, secretarial positions, clerical 
positions, communications personnel. The natural abilities 
of personnel entering these fields makes the use of 
computers seem almost natural, since they generally have 
both a higher I.Q. and clerical aptitude. 

This tutorial should be designed for the Ramtek 9403 
since that is the equipment to be used operationally. The 
school is presently installing a Ramtek 9433 so work could 
continue on this project by transferring the code to the 
new system with improved performance because of the 
superior capabilities of the new console. The amount of 
code required by many of the displays could be reduced 
because the Ramtek 9403 can perform some functions easily 
which are quite complex on the existing system. 

The use of color can enhance the pattern recognition 
capabilities of humans so a further project would be to 
display the surface plot data in different colors 
corresponding to signal amplitude. 



95 



Another project would be to write an algorithm that 
would take actual data from the operational system and 
transform it into displays that could be used for the 
scenario section of the tutorial. This would give the 
operator an almost limitless number of new examples on 
which to practice. 
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^ :{c ^ -c jJ; 3*c :*c 3j: 5^; sj: :*« 3{i s[: 5i: 5^ :*5 ?JC Sji 5{j 5jJ ^ 5j? j(% Sj? ^ S{? Sjt 5^ *i» 5»? S{» 5^ #5?5^ 

# =<« 

* This is the main section of code that controls the other * 

* separately compiled sections of code. It establishes the * 
type of tutorial that the user wishes to see and then it * 

^ forks to that section of code. 

:{< s{« 5|c 3{s aj: X? 3{c s;« :}t 3?c 3{; j^c 3{c 5|: j{t ^ >|s 5^ >}c 3^: s^c 5lt >;6:;«:{c:{^5;^:Jc>Icy»c:^c^3{s>|^5^c:^5^{^5;s5^c 5*c3j:s{c3;s 5{: ^ 

char select; /* global variable */ 

main( ) { 

float x,y,z; 
char cc,cd,ce,*st; 
int i; 

ramtek(); /’'‘initializes the Rarrtek system */ 
writon(l ) ; 

colortable { ) ; /* establishes a new color table ’"/ 

colort (10) ; 

picl{); /* allows the first display to remain ’"/ 

cc='z ' ; 

while (cc!='s') { while #1 

cc=retchar { ) ; } /*end while #1 ’"/ 

while (1) { while #2 */ 

colort ( 10 ) ; 

pic99(); /’*' introduction display */ 

cc = 'z ' ; 

whi le (cc=='z ' ) { /’*' while #3 */ 

cc=retchar ( ) ; 

switch(cc) { /* switch #1 */ 

case /* basic tutorial ’’■‘Z 

select = 'a 
break; 

case 'b': /’" data display tutorial 

select= 'b '; 
break; 

case 'c': /’" senario tutorial ’"/ 

select='c '; 
break; 

case 'q': /’*' Quit ’"/ 

pstop( ) ; 

pic99(); introduction display */ 

cc='z ' ; 
break; 
default: 
cc = 'z ' ; 

} /- end switch #1 */ 

} /* end while #3 */ 

color(15) ; 

block(14. 0,2. 0,90. 0,10.0); 
strtiy(30 .0 ,8.0 ) ; 
color (0J; 

strout(*Do you want any instructions? { y / n )"); 
cc=retchar ( ) ; 
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if (cc=='y') { 

pic89()» /* instruction display 

cc=retcha r ( ) >* 
while (ccl='c') 
cc=retchar( ) ; 

} 

switch (select) { /* switch ^2 

case 'a': /'^ oasic tutorial */ 

colort (1 ) ; 

asw()J /* interrupt display ’•'/ 
sleep (4) ; 

if ((i=fork( ) )==0) j; 
execl ( ”sepl ” , "segl ,0); 
exit ( ) ; 

} 

wait (&i ) ; 
break* 

case 'h': data display 

colort (2 ) ; 

asw(); /* interrupt display 
sleep (4) ; 

if ((i=fork( ) )==0) { 

execl (”seg3" , "seg3” ,0) ; 
exit ( ) ; 

} 

wait (fii ) ; 
break; 

case 'c': /* senario tutorial */ 

colort (3 ) ; 

asw(); interrupt display =!'/ 

sleep(4) ; 

if ( ( i=fork ( ) )==0 j .. { 

execl ( " Senerio" , "Senerio” ,0 } ; 
exit ( ) * 

} 

wait (&i ) ; 
break; 
default : 

printf ("error'’); 

} /* end switch #2 */ 

} /* end while #2 #/ 

} /’!' end main 



colortable() { /* Establishes a new color table =!'/ 



int 



;i6] ; 

0] = trinle(0,0,0) ; 

1] = tripled?, 0, 0) ; 
21 = tripled, 15,0); 
[31 = triple(0,0,15) ; 
4] = tripled?, 5,0); 
51 = triple(2,0,6) ; 
61 = triple(0,10,0); 



black */ 

/- blue ^'/ 

/if. green */ 

/»!« red */ 

light blue */ 
maroon 

/* bright green */ 
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a 

a 



r?] = triple(2,6,10); 
_L8‘ = triple(6,1^5,2); 
a [9] = triple(10,2,6); 
a[l0l = triple (13,5,2); 
a[ll] = triple(5 ,2,13); 
a [121 = triple (2,13,5) ; 
a [13] = tripledS ,0,15) ; 
a [14] = triple(10 ,4,4) ; 
a[l5] = triple(15,15,l5 ); 
clrtbl (10 ,a ) ; 



return; 

} 



/* peach */ 
pail green 
purple 

/* medium blue */ 
/* hot pink */ 

/* light green =•'/ 
/* pink */ 

/* greyish blue */ 
white */ 



pstopO { 

/* Di splays ^ the question of Do you really want 
to quit?" and then waits for a reply */ 

char *s t t*sp , stop; 
sp=" ”; 
color(ll) ; 

block(0.0,0.0,100.0,100.0) ; 
color( 5 ) ; 

s trtiy (45.0,80.0 ) ; 

st="B0 you' ; 
strout(st); strout(sp); 
st="REALLY"; 
strout (st ) ; 
strout ( sp ) ; 

St="WANT TO"; 
strout(st); strout(sp); 

St=" QUIT?"; 

Strout (st ) ; 
st= (y / n) ; 

Strout ( St ) ; 
stop=retchar ( ) ; 
if (stop=='y') { 

color(0 ) ; 

block (0.0, 0.0, 100. 0,1 00.0); 

exit(); /* Exits program if user want to quit 

return; 

} 



picK) { /* Displays ASW in large block letters */ 

char *stl,*st2; 
color(3) ; 

block (0.0 ,0 .0,100 .0,100.0) ; 
color(12) ; 

block (15. 0,50. 0,20. 0,68.0) ; 
block( 30. 0,50. 0,35 .0,68 .0); 
block (15. 0,58. 0,35.0, 63. 0) ; 
block(15.0,68.0,21 .0,69.0) ; 
bl ock( 16.0,69. 0,34. 0,70.0 ) ; 
block(17.0,70. 0,33.0,71 .0) ; 
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block (IS. 0,70. 0,32. 0,72.0) 
block (19. 0,71. 0,31. 0,73.0) 
block (29. 0,68. 0,54. 0,69.0) 
block( 40. 0,50. 0,60. 0,55.0) 
block(55. 0,5 0.0, 60. 0,63.0) 
block (40. 0,58. 0,60. 0,63.0) 
block (40. 0,58. 0,45. 0,73.0) 
block (40. 0,68. 0,60. 0,73.0) 
block (65. 0,50. 0,70. 0,73.0) 
block (80. 0,50. 0,85. 0,73.0) 
block (74. 0,53. 0,76. 0,60.0) 
block (73. 0,52. 0,74. 0,59.0) 
block (72. 0,51. 0,73. 0,58.0) 
block (71. 0,50. 0,72. 0,57.0) 
block(70. 0,50. 0,71. 0,56.0) 
block( 76. 0,52. 0,77. 0,59.0) 
block (77. 0,51. 0,78. 0,58.0) 
block (78. 0,50. 0,79. 0,57.0) 
block( 79. 0,50. 0,80. 0,56.0) 
dblwid(l); 
stl=”EMBEEDED" ; 
St2=”TUT0RUL''; 
strtxy (40 .0 , 40 . 0 ) ; 
strout ( stl ) ; 
strout Ut2 ) ? 
dblwid (0) ; 
strtxy (70 .0 , 5.0 ) ; 
color(15); 

strout( type s to start ); 
return? 

} 



pic99() { /* Introduction Display 

color (4 ) ; 

block(0. 0,0. 0,100. 0,1 00.0); 

color (0 ) ; 

dblwidd ); 

strt xy (20 . 0, 95. 0 ) ; 

strout ("embedded TUTORIAL INTRODUCTION"); 

dblwid(0) ; 

strtxy ( 15 .0 ,87. 0 ) ; 

strout(" This tutorial is designed to meet the needs of an 
assortment of"); 

strout ( "users , from the^^novice to the experienced tracker, 
^d^isre are three"); 

strout("categories that can be reviewed: "); 

5trout(^^ )J 

strout("a) The basic principles of the system are discussed 
and many of the"); 

strout(" problems associated with the system's environment 
are dealt wi th" ) ; 

strout(]] in detail in this section. "); 

strout (”b) The types of data that will be displayed during 
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actual system"); 

strout(" operation are presented along with explanations 
of the data and" ) ; 

strout(" key areas to watch for while tracking. "); 
strout( c) A set of practice senarios are presented "based 
on the user inputted"); 

strout(" parameters. These senarios allow the user to 
see actual data "being”); 

strout(" presented and the effects of various parameter 
settings. Key points"); 

strout(" are also highlighted in this section. " ) ; 
strtxy(l5. 0,8.0) ; 

strout("type in the letter of the desired category (a,"b,c) 
or (q) to quit"); 

return ; 

} 

pic89() { Instruction Display */ 

color (1 ) ; 

block(0.0,0.0,ia0.0,100.0) ; 
color (4) ; 

hlock(0.0,30.0,100.0,90.0) ; 
strtxy (10. 0,97.0); 
color (2 ) ; 

strout("Menu of po ssi ble^ areas to proceed to next is 
presented here."); 
strtxy(20. 0,70.0); 
switch( select ) { 

case 

strout(" Basic diagrams will be illustrated in this 
^^area. They will"); 

s trout ("depi ct a view of the overall system, environ- 
mental problems,"); 

stroutC’and detailed displays of questionable areas. 
,,Review this area”); 

strout ("before reading the explanation below. "); 
break; 
case 

strout(" This section will illustrate some typical 
^^data that would"); 

strout("show up as the tracker is utilizing the 
operational system."); 

strout(’’The data will represent some relatively good 
tracks in order"); 

strout("to demonstrate how the data should appear. "); 
break; 
case 

strout(" The data illustrated in this section is 
dependent upon the"); 

strout("user inputs of parameters. As the user alters 
the parameters" ) ; 

stroutC'on the menu display, the computer alters the 
type of data "); 

strout( that will be exhibited. "); 
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"break; 

} 

strtxy (16. 0,29.0); 
swi toil (selec t ) { 

case 

strout(” An explanation of the above area will be 
displayed in this’’); 

stroutC section. Generally it will be a simplified 
review of the basic"); 

s trout (’’ concept with a few new ideas. If the new ideas 
are no t fully" ) ; 

strout ("understood , then they will probably be listed 
in the menu and" ) ; 
strout(’’can be pursued further. ’’); 
break; 
case 

strout (’’ An explanation of the above data and some key 
points’’); 

strout( to watch for will be described in this section.’’) 
break; 
case 

strout(" A very brief statement about the data and its 
reasons for’’); 

strout ("being good or bad will be described in this 
sec tion . ’’ ) ; 

break; 

} 

strtxy(50. 0,6.0 ) ; 
strouti’type c to continue"); 
return; 

} 



asw() ( /* Interrupt Display */ 

float x; 
int i; 
i=6; 

for(x=0.0;x<41.0;x=x+5.0) { 

i=i+i; 
color ( i ) ; 

block(x,x,10'0 .0-x,100.0-x ) ; 

} 

strtxy (45.0,58.0) ; 
color (Iji; 

strout ([ A S W "); 
strout (’J Embedded’] ) ; 
strout ( "Tutorial ’’ ) ; 
return ; 

} 
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# This program demonstrates some of the capabilities of # 

# a computer to instruct individuals in basic skills. # 

# It is designed to be self-paced and totally contains # 

# all the material required ( pictures, text, formulas, # 

# and instructions). Once the user is logged on there is # 

# no need for an instructor to monitor the individual. # 

# Due to the size of the program, it is broken up into # 

# five modules that are compiled separately and then are # 

# forked together when required. There are three parts # 

# to the tutorial and then the senario section. This is # 

# the first section of the tutorial. # 



main( ) { 

float x,y,z; 
char cc ,cd,ce,*st; 
int i; 

rantekf): /^initializes the Ramtek system */ 

writond )J 

colortable ( ) » /’*' establishes a new color table 

color t ( 10 ) » 

picl()> Z*** allows the first display to remain */ 

sleep(5); /* on the screen 5 seconds before 
pic2(h the second display is presented •"/ 

cc='z ' ; 

while (cc=='z') { while #1 */ 

cc=retchar ( ) ; 

switch(cc) { /* switch #1 */ 

case 'c': /* Continue */ 

pic3( ); 

C i “ Z t 

while (cd=='z') { /* while #2 */ 

cd=retchar( )* 

switch(cd) { /^' switch #2 

case 'c': /* Continue */ 

break ; 

case 'v'i Return 

pstop( ) ; 

pic3(); displays pic3 if quit isn't desired */ 

cd='z'; 
break; 
def aul t : 
cd='z 

} Z*end switch #2 */ 

} /=!* end while #2 */ 

break; 

case 'f': /* Extra display if 'f ' is accidently typed=^Z 
pic2a( ) ; 
cc='z ' ; 
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break; 

se 'r': /^‘ Heturn */ 

pstop( ) ; 

pic3()J displays pic 3 if quit isn't desired 



cc = 'z ' ; 
break; 
default : 
cc = 'z 

} end switch #1 */ 

} /* end while #1 */ 

pic4( ); 
cc='z '; 

while (cc=='z') { /- while #3 */ 

cc=retchar ( ) ; 

switch(cc) { /* swithch #3 */ 

case 'n': ^^oise display / 

pic31(); 



cc='z 



break ; 
case 'd': 

■Dic32 ( ) ; 
cd='z '; 

while ( cd== 'z ' ) 
cd=ret char ( ) ; 
switch(cd) { 
case 'n ' 
pic31( ) ; 
cc='z ' 
break; 
case 't' 



pic33( ) ; 
cc='z ' 
b r ea k ; 
case 'w' 
pic34(); 
cc = 'z 



/’!' Distance display 

{ /* while #4 * 

/’!' switch #4 ’i'/ 

/’i' Noise display ’!'/ 

Z*" steps out of while #4 

Z* Time display *Z 

Z* steps out of while #4 *Z 

Z* Water temperature display •"' / 

Z* steps out of while #4 *Z 

Z* Tau line display / 



break ; 
case '1 ' 
pic321( ); 

C 6 — ^ Z 

while (ce=='z') { 

ce=retchar ( ) ; 

switch(ce) { Z* switch #5 ’'V 

Z* Noise display *Z 



Z*!* while #5 *Z 



case 'n' 



pi c3l ( ) 
cc='z ' 
break; 
case 't' 
pic33( ) ; 
cc= z 
break; 
case 'd' 
pic32( ) ; 
cc= z 



Z* steps out of while #4 ’'V 
Z* Time display *^Z 

steps out of while #4 */ 
Z* Distance display 
Z* steps out of while #4 
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break; 
case 'w': 
pic34( ) ; 
cc='z'; / 

break; 

case 'p': / 

pic321in; 
cc='z'; / 

break; 
case 'c': 
pic5(); / 

break; 
case 'r': 
pstOT)( ) ; 
pic321( ) ; 
ce= z ; 
break; 
def aul t : 



/* Water temperature display 

* steps out of while #4 

* Tau line problems */ 

* steps out of while ^^4 */ 

/* Continue */ 

steps out of while */ 

/* Return */ 

displays pic 321 if quit 
/=!* isn't desired 









ce='z ' ; 

} /=!' end switch ^^5 */ 

} /’!' end while #5 '•*'/ 

break; 

case 'c': /* Continue 

pic5(); /* steps out of while #3 */ 

break ; 

case 'r': Return */ 

ps top ( ) ; 

pic32 (); /-di splays pic 32 if auit isn't desired*/ 
cd='z '; 



break; 
def aul t : 
cd= z > 

} /* end switch #4 */ 

} /* end while ^4 */ 

break; 

/* Tine display */ 



case 't' 
pic33( ) ; 
cc='z'; 
break; 
case 'w': 
pic34( ); 
cc='z ' ; 
break; 
case 'c': 
pic5( ); 
break; 
case 'r': 
pstop ( ) ; 
pic4( ) ; 
cc='z '; 
break; 



/* Water temperature disolay */ 



/* Continue */ 



/* Return */ 

/* displays pic 4 if quit isn't desired */ 



def aul t : 
cc='z ' ; 

} /* end switch #3 */ 
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} /* end while #3 */ 

if ( ( i=f ork( ) )==0) /* If stmt #1 */ 

execl ( "seff2", "seg?” ,0 ) ; /* forks to seiement ?. 

exit ( ) ; 

} /* end If stmt #1 

wai t (&i ) ? 

} end of main */ 



colortable() { /* Establishes a new color table */ 



int 



[161 
[ 0 - 



} 



Cl 
[2 
[3. 
a [4. 
a [51 = 
a [el = 
a[7i = 
a [81 = 
a [91 = 
a[l0l = 
a [111 = 
a [121 = 
a [131 = 
a [141 = 
a [151 = 
clrtbl ( 10 ,a 
return » 



triole(0,0,0) J 
tripled?, 0, 0) ; 
triple( 0, 15,0); 
tripl e (0 , 0 , 15 ) ; 
tripled?, 5,0); 
tripled, 0,6) ; 
triple(0,10,0) ; 
triple(2,6,10) ; 
triple(6,10,2) ; 
trinle(10,2,6) ; 
triple (13,5,2); 
triole(5,2,13) ; 
triple (2,13,5); 
triple(15,0,15) ; 
tr iple(10,4 ,4) *, 
tripled5,15 ,15); 
); 



black */ 

/* blue */ 

/if green 
/if red ’!'/ 

/- light blue -/ 
maroon 

bright green */ 
peach */ 

/* pail green ^' / 

/* purple 

/if rnedium blue */ 

/*!' hot pink 

/^' light green ^'/ 

/'^ pink / 

/if greyish blue */ 
/* white */ 



pstop() { 

Di splays^d*^® question of "do you really want 
to quit?" and then sets the value of STOP ^’ / 

char *s t ,*sn ; 
sp= ; 
color ( 11 ) ; 

block(0.0,0.0,100.0,100.0) ; 
color (5 ) ; 

strtxy(45. 0,80.0) ; 
st="DO YOU"; 
strout(st); strout(sn); 
st— REALLY ; 
str out ( St ) ; 
strout (sp) ; 
st="WANT TO"; 
strout(st); strout(sp); 

St=" RETURN to"; 
strout(sp); 

strout(*THE MAIN"); strout(sn); 
strout("PROGRAM?") ; 
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strout (st ) ; 
st=’’(y / n)"; 
strout (s t ) ; 

STOP=retchar(); 
if (STOP=='y') { 

ST0P='T'; 
color (0 ) * 

1)1 ock( 0.0, 0.0, 100. 0,100.0) ; 

} 

return? 

} 



picl() { /* Displays ASW in large block letters 

char *stl,’!'st2; 
col or (3 ) ; 

hi ock( 0.0, 0.0, 100. 0,100.0) ; 
color U2 ) ; 

hlock(15.0,50.0,20.0,6S.0) ; 
hlock(30.0,50.0,35.0,68.0) ? 
block(15. 0,53.0,35. 0,63.0)? 
hlock(15.0,68.0,21 .0,69.0) ? 
block( 16. 0,69. 0,34. 0,70.0)? 
block(17.0,70. 0,33.0,71.0) ? 
block( 16.0, '^0.0,32.0, 72.0)? 
bl ock( 19. 0,71. 0,31.0, 73.0 ) ? 
block(29.0,68.0,34.0,69 .0) ? 
block (40. 0,50. 0,60.0, 55. 0) ? 
block( 55. 0,50. 0,60.0 ,63.0) ? 
block(40.0,58.0,60.0,63.0) ? 
block(40.0,58.0,45.0,73.0) ? 
bl ock( 40. 0,63. 0,60. 0,73. 0) ? 
bl ock( 65.0,50. 0,70.0, 73.0 ) ? 
bl ock( 80. 0,50. 0,85. 0,73.0) ? 
block(74.0,53.0,76.0,60.0) ? 
block( 73.0, 52. 0,74.0, 59. 0) ? 
bl ock (72. 0,51.0, 73.0, 58.0) ? 
block( 71 .0,50.0,72.0,57.0)? 
bl ock (70.0,50. 0,71.0, 56. 0) ? 
block(76.0,52.0,77.0,59.0) ? 
bl ock(77. 0,51. 0,78.0, 58.0 ) ? 
block (78. 0,50. 0,79. 0,57.0)? 
block (79.0, 50. 0,80.0, 56. 0) ? 
dblwid(l)? 
stl="PM3EDDED"? 

St2='’TUT0RIAL’' ? 
strtxy(40 .0 ,40 . 0) ? 
strout(stl ) ? 
strout (st2) ? 
dblwid(0)? 
return ? 
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pic2() ^ /■'' This subroutine displays the instructions 

needed to use the tutorial */ 

char *stJ 
int stimei 
color (1 ) T 

block (0.0 ,0.0,100.0,100.^) »* 

color(2) ; 

dblwidd ) ; 

strtxy (25 .0 , 96.0 ) ; 

St="TUTORIAL instructions”; 
strout ( St ) ; 

vector (25.0,92.0,72.0 ,92.0) ; 

dbl¥id(0); 

strtxy(10. 0,91.0) ; 

st=" This embedded tutorial is designed to give you the 
hands on training", 
strout (st ) ; 

st=”required to operate this ASW surveilance system. It 
contains some overall"; 
strout( St ) ; 

st=”views of the system, some theory of its working capabil- 
ities and then a short"; 
strout (st); 

st="scenerio of possible actions which can be taken by you"; 
strout (st ) ; 

ft ft 

st= ; 
strout (st ) ; 

st=" To operate the tutorial there are three areas to watch 
strout ( s t ) ; 

st="l) all of the instructions at the top of each frame 
provide" ; 
strout (st); 

st=" you with the possible areas you can proceed to next"; 
strput(st); 

st="2) The middle area is either a display which will be"; 
strout (st); 

st="normally viewed while operating the system or it is a"; 
strout (st ) ; 

st="display that provides a better view of the entire system 
strout (st ) ; 

st="3) The bottom area gives you an explanation of the 
middle area."; 

strout(st) ; 

• • •? 

st= ; 

strout ( st ) ; 

st=”To utilize the tutorial, press the key of the first 
letter" ; 
strput(st); 

st="of the word which describes where you wish to proceed."; 
strout(st); 

st=" type ==> Continue, Filter, Quit"; 

strout (s t ) ; 

st="By typing an f you would proceed to a display of filters 
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^lOW TYPE c TO COiMTIMUF”; 



Strout (s t ) ; 

tt 

st = 

strout ( st ) ; 
return ; 

} 



pic2a() { 

/* This subroutine is displayed if a mistake is 
committed by the user on the instruction 
display */ 

char *st? 
color (2 ) ; 

block (0.0, 0.0, 100. 0,1 00.0 ) ; 

color(12 ) ; 

strtxy(50. 0,50.0) ; 

st=”TYPS c”; 

strout ( s t ) » 

return * 

} 



pic3 ( ) f 

This subroutine calls for the display to be set 
uu and tells about the purpose of the system 

char *st; 
color ( 1 ) »* 

bl ock( 0.0, 0.0, 100.0,1 00.0 ) ; 
ocean ( ) ? 
color(2 ) ; 

s trtxy (10 . 0 ,98. 0 ) ; 
st=”type ==> Continue, Quit"; 
strout (st ) ♦ 
strtxy(4.0,28.5) ; 

st=” This system is designed to pick up frequency changes 
in the ocean and determine”, 
strout (st ) ; 

st=”whether or not they were made by a submarine or other 
vessel. Assuming there"; 
strout (st ) ; 

st="was an area(green square) in the ocean where you wished 
to watch for submarines,"; 
strout(st) ; 

st="all that would be necessary are the two arrays of 
hydrophones (1 and 2) and"; 
strout (st ) ; 

st="the technique to analyze their^^output s . For better 
results additional arrays can"; 
strout(st); 

st="be added, for instance 3."; 
strout ( st ) ; 
return ; 

} 



109 



ocean() { 

/* This subroutine draws the basic display of the 
ocean, area under surveilance, land, and the 
arrays */ 

char *st* 
color(4) ; 

block(0.0,29.0,100.P',90.0) ; 
land ( ) ; 
arrays ( ) ; 
color(6); 

block(10.0,60,0,26.0,80.0) ; 
return » 

} 



arrays () { /* Draws the arrays ^'/ 

color(7) : 

block (79.0 ,34.0,80.0,79.0); 
block( 25. 0,32. 0,29.0, 33.0); 
vectcr(79.0,33.9,82.0,37.1); 
vector (79. 5, 33.8, 82. 5 ,37.2); 
vec tor (79. 7,33. 7, 82. 7,37.3 ) ; 
vector (80. 0,33. 6, 83. 0,37.4); 
vector(79.2,33.5,82.2,37.5) ; 
vec tor (79.3, 33. 4, 82.3, 37.6 ) ; 
return ; 

} 

land() { /’*' Draws the land */ 

color (5 ) ; 

block( 84. 0,50. 0,100.0, 90.0); 
block (95. 0,30. 0,100. 0,55.0) ; 
block(S9.0,40.0,96.0,51 .0) ; 
block (92. 0,33. 0,96. 0,41 .0) ; 
vector( 89. 0,40. 0,64. 0,5 0.0); 
vec tor (89. 0,40.0, 84. 2, 50.0) ; 
vec tor (89. 0,40.0, 84.4,50.0 ) ; 
vector(89. 0,40. 0,84. 6, 50.0); 
vec tor (84.0, 50. 0,82.0 ,63.0) ; 
vec tor (84.0, 50. 0,82. 2, 63.0 ) ; 
vector (84.0,50. 0,82.4,63.0) ; 
vec tor( 84. 0,50. 0,82. 6, 63.0) ; 
vec tor (82. 0,67. 0,33. 0,73.5 ) ; 
vector (82. 1,67. 0,83. 0,73. 5) ; 
vec tor (82. 2, 67. 0,83.0, 73.5 ) ; 
vector(82.3,67.0,83.0 ,73.5) ; 
vect or (83. 0,84. 0,81.0, 90.0 ) ; 
vector (83.0, 84.0, 81. 2, 90.0); 
vect or (83. 0,84. 0,81. 4,90.0); 
vec tor (83. 0,84. 0,81.6, 90.0 ) ; 
vec tor (97. 0,29. 0,95.0 ,30.0) ; 
vec 1 0 r ( 95 . 0 , 30 . 0 , 92 . 0 , 33 . 0 ) ; 
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vect or ( 92 . 0 , 33. 0 , 69 .0 ,40 .0 ) ' 
vec tor (92. 0,33. 0,89. 2,40.0 ) ; 
vf?ctor(92.0,33.0,89.4,40.3)> 
vector(92.0,33.0,69.6,40.0)? 
block (82. 8, 78 .0,83.0,30.0); 
block(Se.5,40.0,90.3,43.0) ; 
block (82.8, 57 .0,84. 0,60.0); 
vector (92 . 0 ,33. 0 ,89 .8 ,40 . 0 ) ; 
block (97.0, 29. 0,100.0. 31.0) ; 
block(86.0,45.0,90.0,51.0) ; 
block (S3. 0,58.0 ,86.0,90.0); 
block(96.0,29.0,98.0,31.0 ) ; 
block (95. 5,29. 5, 98. 0,31.0); 
block(96.5,29.0,98.0,30.0); 
vector (97.1,29.0,95.0 ,30.2) ; 
block(93.5,31 .2,96.0,34.0) ; 
block(92.7,32.0,98.0,34.0) ; 
block(90.0,36.6,94.0,41.0) ; 
block (91 .0 ,34.4,94.0,41 .0) ; 
block( 87.2,42. 2, 90. 0,46.0); 
block(84.8,47.2,88.0,51.0) ; 
block (82.0,62. 7, 85. 0,67.0); 
block (82. 0,88.0, 85.0,90.0 ) ; 
block(82.5,66.0,84.0,71.0) ; 
block(82.5,86.0,64.0,89.0) ; 
block (83.5, 53. 0,85. 0,60.0); 
block(82.5,60.0,64.0,65.0) ; 
return ; 

} 



pic31f) { /* Noise display */ 

char ’*'st; 
color ( 1 ) ; 

block( 0.0, 0.0, 100. 0,1 00.0) ; 
color(7 ) ; 

block(0.0,29.0,100.0,90.0) ; 
col or (2); 

st="type ==> Continue, Pistance, Time, V'ater( temp ) , Quit”; 
strtxy(10.0,9S. 3) ; 
strout (st ) : 
strtxy(4.0,27.5) ; 

st=” Noise is what we are attempting to detect in the ocean, 
however there is other"; 
strout (st ) ; 

st=’’noise in the water. This detection can be compared to 
trying to listen to a"; 
strout (st ) ; 

st="specific person at,, a large noisy party. The majority of 
noise in the range"; 
strout ( s t ) ; 

st="of 10Hz to 400Hz is caused by other vessels in the water, 
probably at a much"; 
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strout ( St ) > 

st="larger distance and thus a much weaker signal is 
received . 
strout (st ) ; 
color (0 ) ; 

vector(30. 0,40. 0,30. 0,80.0) > 
vector (30.0,40. 0,75. 0,40.0); 
vector(30. 0,45. 0,75. 0,45.0) ; 
hlock( 50.0, 45. 0,50. 5,62.0); 
return ; 

} 



pic32() { 

/* This display discusses the problems of 
large distances */ 

char -St; 
color (1 ) ; 

hlock(0.0,90.0,100.0,100.0) ; 
hlock(0.0,0.0,100.0,28.0) ; 
ocean( ) ; 
color (7) ; 

hlock( 15. 0,65. 0,13.0, 68.0 ) ; 
color (0) ; 

vector(17. 0,66. 5, 27. 0,33.0) ; 

vector (17. 0,66. 5, 80.0 ,35.0) ; 

strtxy (24. 5,48. 0 ) ; 

st="500 miles"; 

strout (st ) ; 

strtxy ( 50. 0, 55. 0 ) ; 

st="l200 miles"; 

strout( st ) ; 

color (2 ) ; 

strtxy(10.0,98.0 ); 

st="type ==> Continue, Noise, Time, Water(temp), Lines(tau) 
, Ouit"; 
strout U t ) ; 
str Jxy(4 .0 ,28 .5 ) ; 

st= Due to the mission of this system it is necessary to 
detect any vessel at a"; 
strout( st ) ; 

st="very large distance. ^These distances can range up over 
1200 miles or they can"; 
strout (st ) ; 

5t="he relatively short. The long ranges have problems of 
diffusion and large"; 
strout ( st ) ; 

st="separations in their tau lines. While using two arrays 
with large distance"; 
strout (st ) ; 

st="dif fer ences causes problems in time of arrival of the 
signal at the various arrays."; 
strout (st ) ; 
return; } 
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pic321() { /’*' This subroutine discusses tau lines 

char *st; 
color ( 1 ) > 

block(0. 0,0.0,120. 0,1 00.0); 
color (4 ) ; 

bloc k( 0.0, 29. 0,100.0, 90.0 ) ; 
color (6 ) ; 

vec tor (72. 0,68. 0,72.0, 34.9 ) ; 
vec tor (37. 6, 51. 4, 72.0, 51. 4) ; 
vec tor (37. 6, 75. 8 , 49 .0 ,66 . 6 ) > 
vector (49. 0,68. 8, 61. 4, 62. 9) ; 
vector(61.4,62.9,72.0,59.8)» 
color (8 ) ; 

strtiy(71. 0,69.5) ; 




strtxy(73.0,61 .5 ) ; 
st="3 => 500 tau line"; 
strout (st ) ; 
strtxy (73 .0 ,53.5 ) ; 
st="l => 0 tau line"; 
strout (s t ) ; 
strtxy(71 .0,36.5); 
st=" — b"; 
strout ( s t ) ; 

it t« 

s t = 2 * 

strtxy(36.0,53.5); 
strout ( St ) ; 
s trtxy( 36.0, 78.0) ; 
st="4 ’; 
strout (st ) ; 
strtxy(10.0,98.0) ; 
color(2) ; 

st="type ==> Continue, Noise^, Distance, Tiire, Water ( terrp ) , 
Problems ( tau line). Quit’; 
strout ( s t ) ; 
strtxy(4.3,28.5) ; 

st=" Tau lines are Just measurement lines distinguishing 
the time arrival of the"; 
strout (st ) ; 

st="signal at two dif f erent^^arrays . If arrays A and B are 
1000 miles apart then a"; 
strout (st ) ; 

st=”signal produced exactly between A and B (point 1) would 
arrive at both arrays at”; 
strout (st ) ; 

st="exactly the same time. Additionally any signal produced 
on line 1-2 would arrive"; 
strout (st ) ; 

st="at both arrays simultaneously. In the same manner, any 
signal produced on line 3-4"; 
strout (st ) ; 
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st="arriv8 at the arrays with the sarre arrount of tirre delay 
in all cases 
strout ( St ) ; 
return ; 

} 

pic3211() { 

/* This subroutine discusses the proolerrs associated 
with the tau lines and large distances */ 

char *st; 
color (1 ); 

hi ocl5:( 0.0, 0.0, 10^.0,! 00.0 ) ; 
color (4 ) ; 

block (0.0, 29. 0,100. 0,90.3); 
color (6 ) ; 

vec tor (72. 0,68. 0,72.0, 34.9 ) ; 
vector(37.6,51.4,72.0,51.4) > 
vec tor (37. 6, 75. 8, 49.0, 68.8); 
vector(49.0,68.8,61 .4,62.9) ; 
vec tor (61. 4, 62. 9, 72.0, 59.8 ) ; 
vec tor (37. 6,53.7,72. 0, 53.1 ) ; 
vec tor (37. 6,83. 3,49.0 ,74.0) ; 
vector (49.0,74. 3,60.8,65.8) ; 
vec tor (60. 8, 65. 8, 72.0, 61 .7) ; 
color(8) ; 

strtiy (71 .0,69.5 ) ; 

st=*' — a" ; 

strout (st ) ; 
strtxy(73.0,61.5) ; 
st="3 => 500 tau line”; 
strout ( St ) ; 
strtxy(73.0,53.5) ; 
st=”l => 0 tau line"; 
strout ( St ) ; 
strtxy(7l .0,36. 5) ; 
st="~- b"; 
strout ( St ) ; 

It *• 

st= 2 ; 

strtxy(36.0,53.5); 
strout ( St ) ; 

Strtxy(36.0 ,78. 0 ) ; 
st=”4‘; 

Strout ( St ) ; 

st="225 friles >"; 

strtxy(20. 0,81.0); 
strout(st); 

st="65 rriles >"; 

strtxy(20 .0 , 54. 0 ) ; 
strout (st ) ; 
strtxy(10. 0,98.0) ; 
color (2 ) ; 

st="type ==> Continue, Noise, Distance, Time, Water ( temp )” ; 
strout (st ) ; 
strtxy(4.0,28.5 ) ; 
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st= Since the tau lines are Jjyperbolic in shape, another 
problem arises in that the’; 
strout (s t ) ; 

st="spacing between any two lines does not remain constant. 

The lines at points 1 and 3”; 
strout (st ) ; 

st="are each spaced at 50 miles apart. The lines 1-2 spread 
apart to 65 miles by the”; 
strout (st ) ; 

st=”time they reach point 2, whereas the lines 3-4 spread 
apart to 225 miles by the time"; 
strout (st ) ; 

st="they reach point 4. This variance can cause drastic 
differences in the accuracy"; 
strout (st ) ; 

st="of the data received, depending on it's position 
relative to the arrays."; 
strout ( st ) ; 
return ; 

} 

pic33() { 

/* This subroutine discusses the problems of time 
delay and how the computer solves them ’J'/ 

char *st; 
color (1 ) ; 

block(0.0,90.0,100.0,100.0) ; 
block(0.0,0.0,100.0,2e.3) ; 
ocean ( ) ; 
color (0 ) ; 

vector (17. 0,66. 5, 27. 0,33.0); 

vector (17.0,66.5,80 .0 ,35.0) ; 

strtx}r(16. 0,70.0) ; 

st=”A ’ ; 

strout(st ) ; 

s trtiy (24. 5,48.0 ) ; 

st="500 miles"; 

strout (st ) ; 

strtxy(50. 0,55.0); 

st="l200 miles"; 

strout (st ) ; 

color(2 ); 

strtxy (10.0,98.0) ; 

st="type ==> Continue, Noise, Distance, Water(temp), Quit"; 
strout(st ); 
strtxy(4.0,28.5) >* 

st= Since sound travels^^at 2989 Kts. (3400 miles/hour) 
through the water you"; 
strout (st ) ; 

st="can approximate it as travelling at 1 mile per second. 

At this speed it would take"; 
strout (st ) ; 

st= a noise particle 1200 sec. or 20 minutes to travel from 
point A to array 2. But"; 
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strout (s t ) ; 

st=”it would only take 8 minutes for it to travel to array 
3, thus arriving 12 minutes"; 
strout (st ) ; 

st="'before it would arrive at array 2. This difference must 
he accounted for hy"; 
strout (st); 

st="the algorithum in the computer. ; 

strout ( s t ) ; 

return; 

} 

pic34() { 

This subroutine demonstrates how the speed of 
sound travels at different speed depending on 
temperature, salinity, and depth */ 

char =<‘st; 
color(l ) ; 

block(0.0,0.0,100.0,100.0) ; 
color (4) ; 

hi ock( 0.0, 29. 0,100.0, 90.0 ) ; 
color ( 6 ) ; 

vector (41.0,76.0,63.0,76.0); 

vec tor (41 .0,76.0,41 .0 ,36 .0) ; 

strtxy (34.0 j^77.8 ) ; 

st=" 0 — ; 

strout(st) ; 

st="i000 — 

s trtxy( 34.0, 70.0 ) ; 

strout (st ) ; 

st="2000 — 

strtxy (34.0 ,62. 0 ) ; 

strout(st) ; 

st="3000 — 

strtxy (34.0 , 54. 0 ) ; 

strout (st ) ; 

st=”4000 — 

strtxy (34. 0 ,46. 0 ) ; 

strout (st ) ; 

st="5000 

strtxy(34. 0,38.0) ; 
strout (st ) ; 
strtxy(39. 0,81.0); 

St="l475 1500 1525"; 

strout (st ) ; 

st=" 1 1 1"; 

strtxy(38.5,78.0); 

strout(st); 

st="7elocity (yards/sec)"; 
strtxy(40. 0,87.0) ; 
strout (st ) ; 
st=" Depth"; 
strtxy (24.0,66.0 ) ; 
strout(st ) ; 
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st="(yards)"; 
strout (st ) ; 
color ( S ) ; 

vector (53. 0,76. 0,54.4, 74.2) J 
vec tor (54. 4, 74. 2, 54. 4, 73.0 ) ; 
vec tor (54. 4, 73. 0,46.6, 70.2 ) ; 
vector (46.6,70.2,44.2,68.1) ; 
vect or (44 .2 , 68. 1 ,44 .0 ,66 .0 ) ? 
vec tor (44. 0,66. 0,44.3, 64.0); 
vec t or (44 . 3, 64. 0 , 45 .6 , 60 .0 ) » 
vector (45. 8, 60. 0,58. 0,36.0); 
color (2 ) ; 

strtxy ( 10 .0 ,98. 0 ) ; 

st=”type ==> Continue, Noise, Time, Distance, Quit"; 
strout ( St ) ; 
strtiy(4.0 ,26.5) ; 

st="The velocity of sound changes as the water temperature, 
salinity, and depth vary."; 
strout (st ) ; 

st=”ln the first 300 yards from the surface velocity is 
mainly altered by temperature and”; 
strout (st ) ; 

st=''salinity , after which depth (pressure) is the main 
factor. As temperature and salinity"; 
strout (st ) ; 

st="rise the velocity of sound increases. As the pressure 
increases due to the depth,"; 
strout (st ) ; 

st="the velocity of sound also increases. These variances 
are not severe hut when the"; 
strout (st ) ; 

st="measurement s are in^^tenths of seconds, any change will 
cause inaccuracies."; 
strout (st ) ; 
return; 

} 

pic4() { 

/* This subroutine shows in general what all the 
problems are in the environment that must be 
overcome by the system */ 

char ’*'st; 
color(l); 

block (0.0, 90. 0,100. 0,100.0) ; 
block( 0.0, 0.0,100. 0,28.0); 
ocean ( ) ; 
color (7) ; 

block(15.0 ,65.0,18.0,68.0) ; 
color (0 ) ; 

vec tor (17. 0,66. 5, 27.0, 33. 0) ; 
vector(17.0,66.5,80.0,35.0K 
strtxy(24. 5,48. 0 ) ; 
st="500 miles"; 
strout( st ) ; 
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st="l200 miles’’; 
strtxy (50. 0,55.0); 
strout (st ) ; 
color (2 ) ; 

strtxy( 10 .0 ,98. 0 ) ; 

st=”type ==> Continue, Noise, Distance, Time, Water ( temp )” ; 
strout (st ) ; 
strtxy (4.0 ,28 .5 ) ; 

st=" There are several problems in the system that are 
difficult to overcome:"; 
strout (st); 

st="l) The distances are quite large, on the order of 1230"; 
strout ( st ) ; 

st="2) Large differences in distances from area to arrays 
cause significant time delays.’’; 
strout (st ) ; 

st="3) Differences in water temperature and salinity cause 
the sounds to travel at"; 
strout (st); 

st=" various speeds."; 
strout(st); 

st="4) Other noises are always present in the ocean."; 
strout ( s t ) ; 
return ; 

} 

pic5() { 

/* This subroutine shows how the large area is 
broken up into small regions 

char *st; 
colord ) ; 

block(0.0,90.0,100.0,103.0) ; 
block (3. 3, 0.0, 133. 0,28. 3) ; 
ocean ( ) ; 
color(2 ) ; 

strtxy(10.0,98.0) ; 
st="type ==> Continue, Quit"; 
strout (st ) ; 
strtiy(4.0,28.5) ; 

st=" These large distances between arrays allow the system 
to cover"; 
strout (st ) ; 

st= a large area of ocean, let's say 400 miles by 430 miles 
or roughly"; 
strout (st); 

st="the size of Montana. This area can be further subdivided 
into 100 sectors , "; 
strout (st ) ; 

st= each 40 miles square to make the tracking easier. Fach 
of these sectors"; 
strout(st); 

st="can presently be covered by XXX correlations per hour.’’; 
strout ( s t ) ; 
disect ( ) ; 
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color(l3); 

bl cck (19.6, 64. 3,21.0, 66.0 ) ; 

color(0); 

st="400 rriles"; 

strtiy(14. 0,84.0) ; 

strout (st ) » 

strtxy(27. 0,72.0); 

strout (st ) ; 

return > 

} 

disect() { /* This subroutine disects the region 

float xl,x2,yl,y2; 

color (0 ) » 

x2=26.e; 

yl=60.0; 

y2=80.0; 

for (xl=10.0;xK=27.0;xl=xl + 1.6) 
vector(xl,yl,xl,y2); 

11 = 10 . 0 ; 

for (yl=60.0;yl<=Sl .0;yl=yl+2.0) 
vector(xl ,yl,x2,yl) ; 
return ; 

} /* End of segment 1 
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# This is the third section of the tutorial and it is 

# set up in the same manner as the other sections. It con 

# tinues the presentation of displays and allows the user 

# to see the overall system and sore of its fine points. 

# Many of the parts that were generated in the first part 

# have to be redone in this section due to the forking 

# technique used to link compiled programs. # 



main() { /'^ section three of the tutorial */ 

float i,y,z; 

char cc,cd ,ce,*st; 

int j.wj 

ramtek(); initializes the Ramtek system */ 

writond )i 

colortable ( ) ; /* establishes a color table 

col ort (10 ) » 

pic5()» /* area breakdown disolay 

w=0; 

cc = 'z 

while (cc=='z') { /* while #1 

cc=retchar ( ) ; 

switch(cc) { /* switch #1 */ 

case ' c ' Continue =*'/ 

pic6(); /’*' correlation display 

break; 

case ' v' i /* Return */ 
pstop ( ) ; 

pic6(); /* correlation display 

cc='z 
break; 
defaul t : 
cc='z '; 

} end switch #1 

} /^' end while #1 

cc='z '; 

while (cc=='z') { /* while #2 V 

cc=retchar ( ) ; 

switch(cc) { /* switch #2 */ 



case 'h': /* hydrophone display */ 

pic61( ); 
cd = 'zd 



while (cd=='z') 


{ 


/* while #3 


cd=retchar ( ) ; 
switch(cd) { 




/* switch #3 */ 


case 'a'; 


/* 


array pointing display */ 


pic611 ( ) ; 
cc='z ' ; 






break; 
case 'e': 


/* 


ellipse display */ 
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pic62( ),* 
ce="z 

while (ce=='z') { /* while #4 

ce=retchar( ) ; 

switch(ce) { /*■'' switch #4 */ 

case 'c': /=** Continue */ 

if (w==l) 

/* If combined ellipses display 
has been presented, skip and 
display pice */ 
pic8( ); 
else 

pic7( ) ,* 
break; 

case ' e' : /* combined ellipses display */ 

pic621( ); 
w=i; 
cc = 'z'» 
break; 

case 'h': /* hydrophone display 

pic6l( ) ; 
cd='z'; 
break; 

case 't': /* Return */ 

pstop( ) ; 

uic6i(); /* hydrophone disulay 
cd='z'; 



} 



break; 
def aul t : 
ce='z ' ; 

} end switch #4 

} end while #4 */ 

cc='z '; 
break; 

case 'c': /* Continue */ 

pic7( ) ; 
break; 

case 't': /* Return */ 

pstop( ); 

pic61(); /* hydrophone disolay 

cd='z'; 



break; 
defaul t; 
cd='z 

} /* end switch #3 */ 

/* end while #3 



break; 

case 'e': /* ellipse display */ 

pic62( ); 
cd='z'; 

while (cd=='z'’) { /* while #5 ^'/ 

cd=retchar ( ) ; 

switch(cd) f /* switch #5 

case 'e': /* combined elipses display 
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pic62l( ) ? 
w=i; ^ 

CC='z t 
break; 

case 'h': /* hydrophone display 

pic61( ); 
c e= ' z ' ; 

while(ce=='z ' ) { /* while #6 */ 

ce=retchar( ) ; 

switch(ce) { /’*' switch #6 */ 

case 'c': /* Continue */ 

if (w==l) 
pic8( ) ; 
else 

pic7( ) ; 
break; 

case 'a': /* array pointing display ’*'/ 

piceiK ); 
cc='z ' ; 
break; 

case 'e': /* ellipse display */ 

pic62(); 
cd='z'; 
break; 

case 'r': Return */ 

pst op( ) ; 

pic620; ellipse display ^'/ 

cd='z'; 
break ; 
default : 
ce= z ; 

} /* end of switch #6 

} /’*= end of while #6 

break; 

case ' c' i Continue */ 

if (w==l) 
pi c8() ; 
else 
pic7(); 
break; 

case 'r': /* Return */ 

pstop( ) ; 

pic62(); /# ellipse display «/ 

cd='z '; 

break; 

def aul t : 
cd='z'; 

} /* end switch #5 

} /* end while #5 */ 

break; 

case 'c'; /* Continue 

if (w==l) 
pic3( ); 
else 
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pic7( ); 
break; 

case 'r': Return */ 

pstop( ) ; 

uic6(); correlation display */ 

cc= z ; 
break; 
defaul t : 
cc = 'z '; 

} /* end switch #2 */ 

} end while #2 */ 

if (w==0) { /* If stmt #1 */ 

cc='z ' ; 

while (cc=='z') { while #7 */ 

cc=retchar ( ) ; 

switch(cc) { /* switch #7 */ 

case 'm': /* draws more ellipses */ 

plc7a( ); 
color ( 1 ) ; 

bio ck( 0.0, 90. 0,100.0, 100.0 ) ; 
color( 2 ) ; 

strtiy( 10.0,98.0) ; 

st="type ==> Continue, Return’; 

strout ( St ) ; 

cc='z '; 

break; 

case 'c'l /* Continue */ 
plcSO ; 
break; 

case 'r': Return */ 

pstop( ) ; 

pic7(); combined ellipses display */ 

cc= 'z ' ; 
break; 
defaul t: 
cc='z '; 

} /* end switch #7 

} /* end while #7 *'/ 

} end If stmt #1 */ 

else 
w=0 ; 
return; 

} /* end main section of segment 2 */ 



pstopO { 
char ’*‘st .’''sp, stop; 
sp=" 

color (11 ) ; 

b lock( 0.0 ,0.0, 100.0,100.0) ; 
color (5 ) ; 

strtiy(45.0,80.0) ; 
st="D0 YOU' ; 
strout(st); strout(sp); 
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st="R?ALLT”; 
strout(5t); strout(sp); 
st="WANT to"; 
strout(st); strout(sp); 
st=" RETURN TO 

strout("THE MAIN"); strout(sp); 

strout(”PROGRAM?"); 

st= (y / n) ; 

St rout ( St ) ; 

St op=retchar ( ) > 

If (stop==V') { 

color(0 ) ; 

block (0.3, 0.0, 100. 0,100.0); 
exit ( ) ; 

} 

return; 

} 



pic61() { /=!' Hydrophone display */ 

char *st; 
float xi; 
color (1 ) ; 

hlock(0.3,0.0,100.0,100.0) ; 
color (7 ) ; 

block( 0.0, 29. 0,100.0, 90.0 ) ; 
color (2 ) ; 

strtxy(10. 0,98.0); 

st="type ==> Continue, Ellipses, Array (pointing), Cuit ; 
strout ( st ) ; 
strtxy (4.0 ,27.0) ; 

st=" The system for collecting coise data is an array of 
hydrophones, roughly 2003 feet”; 
strput(st ); 

st="long containing 60 passive sonar devices. If no 
adjusting (pointing) of the array"; 
strout (st ) ; 

st="is done, then only noise waves coming in at the array 
directly abeam of the array"; 
strout (st ) ; 

st=”will be detected. The noise arrives at the array in 
the same manner that a wave"; 
strout (st ) ; 

st="crashes on the beach, some come in straight and others 
hit at an angle"; 
strout (st ) ; 
color(l2) ; 

block (19. 0,37. 3, 61. 0,39.0 ) ; 
color (0) ; 

for(xl=20.0;xK80.5;xl=xl+l .0) 
block(xl,37.9,xl+0.2,38.l) ; 
strtxy(15.0,80.0) ; 
strout ( "Noise" ) ; 
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strout (" Va ve" ) » 
strtxy (54.0 ,70.0 ) ; 
s trout ("Beam Pattern"); 
vector (22. 0,76.0, 76. 0,76.0); 
vector (22.0,52. 0,78. 0,52.0 ); 
strtxy(42.0,35. 5) ; 
strout ("HTDROPEONE ARRAY"); 
arrows ( ) ; 
color (13 ) ; 

V ec tor (50. 0,39. 0,48.0 ,72.0) ; 
vector(50. 0,39. 0,52. 0,72.0) ; 
vector (48.0,72.0,48.2,77.0) ; 
vector ( 48 .2 ,77.0 ,49 .0 ,79 .0 ) ; 
vector(49.0,79.0,51.0,79.0) ; 
vector (51.0,79. 0,51. 8, 77.0); 
vector(51. 8, 77. 0,52. 0,72.0); 
return; 

} 

arrows () { 

color (0 ) ; 

strtxy(29.0,80.0) ; 

strout("V V V V ); 

strtiy (29.0,56.0 ) ; 

stroutC'V V V v"); 

vector(29.5,84.0,29.5,77.0); 

vector (38.2,84.0,36.2,77.0) ; 

vector (59.0,84.0,59.0,77.0) ; 

vector(69.9,84.0,69.9,77.0); 

vector(29.5,60.0,29.5,53.0) ; 

vector (38.2,60.0,38.2 ,53.0); 

vector (59.0, 60. 0,59.0 ,53 .0) ; 

vector(69.9,60.0,69.9,53.0); 

return; 

} 

pic611() { 

char *st; 
float il ; 
color (1 ) ; 

block(0.0,0.0, 100.0, 100.0 ) ; 
color (7 ) ; 

block(0. 0,29. 0,100.0,90.0); 
color (2 ) ; 

strtxy(10. 0,98.0); 

st="type ==> Continue, Hydrophones, Ellipses, Quit"; 
strout ( s t ) ; 
strtxy(4. 0,27.0); 

strout(" In order to cover enlarge area of water with a 
single array, it must be"); 

strout ( "capable of directing its beam in several directions. 
This is accomplished"); 

strout("by using a time delay between receiving a signal at 
various hydrophones."); 
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strout( There can be roughly as many beam patterns as 
„are hydrophones and )» 

strout( the beam patterns generally overlap so as to 
the entire area.”); 
color (12); 

block (39. 0,37. 0,61 .0,39.0) ; 
color (0 ) ; 

f or ( il=40. 0; xl<60. 5;xl=xl+l .0 ) 
block (xl ,37.9,xl+0.2,38.1) ; 
vector( 50. 0,39. 0,48. 0,72.0); 
vector( 50. 0,39. 0,52. 0,72.0) ; 
vector (48. 0,72. 0,48.2, 77.0); 
vect or (48. 2, 77.0, 49.0,79.0 ) ; 
vector(49.0,79.0,50.0,79.3); 
vector(50.0,79.3,51.0,79.0); 
vector(51. 0,79. 0,51. 8 ,77.0); 
vector (51.8,77.0,52.0,72.0) ; 

/* first beam left */ 
vector(50.0,39.0,41.7,71.2); 
vector(41.7,71.2,41.0,75.0) ; 
vec tor (41. 0,75. 0,41. 8, 77.5 ) ; 
vect or (41 .8,77.5,43.2 ,77.9) ; 
vec tor (43.2, 77. 9, 44.6, 76.2 ) ; 
vector (44.6,76.2,45.7,72.4) ; 
vector(45.7,72.4,50.0,39.0) ; 

second beam left */ 

color(2 ) ; 

vect or (50. 0,39. 0,44. 9, 72. 2) ; 
vector (44. 8, 72. 2, 44. 2, 76. 0) ; 
vec tor (44. 2, 76.0, 45. 5, 73.1 ) ; 
vector(45.5,78.1 ,46.0 ,78.4) ; 
vect or (46. 0,78. 4, 47.0, 78.2 ) ; 
vect or (47. 0,78. 2, 48. 2 ,76.0) ; 
vect or (48. 2,76. 0,48. 7, 72.5 ) ; 
vector(48.7,72.5,50.0,39.0); 

/* second beam right 
vec tor (50. 0,39. 0,51. 5 ,72.5) ; 
vec tor (51.5,72. 5, 52.0, 76.2 ) ; 
vec tor (52. 0,76. 2, 53. 2 ,78.4) ; 
vec tor (53. 2,78. 4, 55.5, 78.0) ; 
vec tor (55.5, 78.0, 56. 2, 75.0) ; 
vec tor (56. 2, 75. 0,55.8 ,72.3) ; 
vec tor (55. 8,72. 3 ,50.0 ,39.0) ; 

first beam right */ 

color (0 ) ; 

vec tor (50. 0,39. 0,54. 8 ,72.2) ; 
vector (54.8,72.2,56.0,76.0) ; 
vec tor (56. 0,76.0, 57.4,77.9 ) ; 
vect or (57. 4, 77. 9, 59. 2, 77. 3) ; 
vec tor (59. 2, 77. 3, 59. 6, 75.0) ; 
vector(59.6,75.0,58.7,71.5); 
vect or (58. 7, 71. 5,50.0 ,39.0) ; 
return; 

} 



there 

cover 
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colortable ( ) 
int a [16] ? 



{ Establishes a new color table */ 



a[0] = 
a[l] = 
a [2] = 
a [3] = 
a [4] = 
a [5] = 
a [6] = 
a 
a 
a 
a 
a 
a 
a 



71 

8 ] 

[ 9 ] 

[ 10 ] 
11 ] 
[ 12 ] 
[13] 



triple('2,0,0) > 
triple(15,0,0); 
trlple(0,15,0) ; 
triple(0,0,15) ; 
triple(15,5,0) ; 
trlple(2,0,6); 

triple(0,10,0) ; 
trl'ole(2,6,10) ; 
triple(6,10,2); 
triple(10,2,6) ; 

= triple (13,5,2); 
= triple(5,2,13) ; 

= triple (2,13,5); 
= triple(15,0,15) ; 



} 



a[l4] = trlple(10,4,4); 

[15] = triple(15,15,15); 
clrtbl(10,a); 
return; 



/* Draws the ocean */ 



ocean() { 
char *st; 
color (4) ; 

block (0.0, 29. 0,100. 0,90.0) ; 
land( ) ; 
arrays ( ) ; 
color(6) ; 

block(10.0 ,60.0,26.0,80.0) ; 
return ; 

} 



arrays() [ /’^ Draws the arrays */ 

color (7 ) ; 

block(79. 0,84. 0,80.0, 79.0 ) ; 
block(25.0,32.0,29.0,33.0) ; 
vector(79.0,33.9,82.0 ,37.1 ) ; 
vector (79. 5, 33. 8, 82. 5, 37. 2) ; 
vector (79. 7, 33. 7, 82. 7, 37.3); 
vect or (80.0, 33. 6, 83.0, 37.4) ; 
vector (79 .2 ,33.5 ,82 .2 ,37 .5 ) ; 
vec tor (79. 3, 33. 4, 82.3, 37.6 ) ; 
return; 

} 



land( ) { Draws the land */ 

color(5) ; 

block (84. 0,50. 0,100. 0,90.0) ; 
block( 95.0 ,30.0,100.0,55.0); 
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block(89.e ,40.0,96.0,51 .0) ; 
block(92.0,33.0,96.0,41.0) ; 
vec t or ( S9. 0 ,40.0,84.0,50.0) » 
vec t or (89. 0 ,40. 0 ,84 .2 ,50 . 0 ) ; 
vector(89. 0,40.0, 84. 4, 50.0); 
vector(S9.0,40.0,84.6,50.0) ; 
vector( 84. 0,50. 0,82. 0,63.0); 
vect or ( 84 .0 , 50 . 0 ,82 .2 ,63 .0 ) ; 
vector(84.0,50.0,82.4,63.0) ; 
vec t or (84 . 0 , 50 .0 , 82 .6 ,63 .0) ; 
vector( 82. 0,67. 0,83.0 ,73 .5 ) ; 
vec tor (82. 1,67. 0,83.0, 73.5 ) ; 
vector (82.2,67.0,83.0,73.5); 
vec tor (82. 3, 67. 0,83.0, 73.5 ) ; 
vec tor ( S3 .0,84. 0 ,81 .0 ,90 . 0 ) ; 
vector (83.0,84.0,81.2,90.0); 
vec tor (83. 0,84. 0,81. 4, 90.0) ; 
vector(83.0,84.0,81.6,90.0); 
vector( 97. 0,29. 0,95. 0,30.0); 
vector( 95. 0,30. 0,92. 0,33.0); 
vector (92.0,33.0,89.0,40.0) ; 
vector (92.0,33.0,89.2,40.0) ; 
vec t or ( 92 .0 ,33. 0 ,89 .4 ,40 .0 ) ; 
vector(92.0,33.0,69.6,40.0); 
block(82.8,7e.0,83.0,80.0) ; 
block (88.5, 40. 0,90. 0,43.0); 
b lock (82. 8, 57. 0,84.0, 60.0 ) ; 
vector(92.0,33.0,89.6,40.0); 
b lock (97. 0,29. 0,100.0, 31. 0) ; 
block (86.0, 45.0,90. 0,51 .0) ; 
block(83.0,58.0,66.0,90.0) ; 
block(96.0,29.0,98.0,31.0); 
bl ock( 95. 5, 29. 5,98.0,31.0) ; 
b lock(96. 5, 29. 0,98.0, 30.0 ) ; 
vector (97.1 ,29.0,95.0 ,30.2) ; 
block (93. 5, 31. 2, 96. 0,34.0) ; 
block (92 .7,32.0,98 .0,34.0) ; 
block (90.0, 36. 6, 94. 0,41.0); 
block(91.0,34.4,94.0,41 .0) ; 
block(87.2,42.2,90.0,46.0) ; 
block (84. 8, 47. 2 ,88.0,51 .0); 
block(82.0,62.7,85.0,67.0) ; 
block(62. 0,88. 0,85.0, 90.0); 
b lock (82. 5, 66. 0,84.0,71 .0) ; 
block(S2.5,86.0,£4.0,89.0) ; 
block(83.5,53.0,85.0,60.0) ; 
block(82. 5 ,60 .0 ,94.0,65.0) ; 
return; 

} 



pic6() { 

/* This subroutine shows how two arrays cross over 
to cover an area '^/ 

char ’^'st; 
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colord ) ; 

t lock(0. 0,90.0, 122.0, 100. 0) ; 
block (0.0, 0.0, 100. 0,28.0); 
ocean( ) ; 
color d) ; 

strtxy (10 .0 ,98. 0 ) ; 

st=”type ==> Continue, Hydropixones , Ellipsoids, Quit”; 
strout (s t ) ; 
strtxy( 4.0 ,28.5) ; 

st=” A correlation takes place when two different arrays 
cover the same area of"; 
strout (st ); 

st="ocean (sector K). An array picks up the frequency 
changes made from the direction"; 
strout ( St ) ; 

st="in which the hydrophone array,ds pointing and then it 
is compared tc the frequencies"; 
strout (st ) ; 

st="obtained by another hydrophone array. If there is a 
correlation of sounds, then"; 
strout ( st ) ; 

st="a possible contact is made somewhere within an ellip- 
soid shaped area near that point.”; 
strout (st ) ; 
color (13 ) ; 

block (19.6,64. 3, 21 .0,66.0); 
color(0) ; 

vector(27.0,33.0,16.0,80.0); 
vec tor (27. 0,33. 0,19.0, 80.0 ) ; 
vect or (80. 0,34.1 ,10.0,72.3) ; 
vector (80.0,34.1,10.0,68.6) ; 
strtx;f(22. 0,70.0 ) ; 
st="K ; 
strout (st ) ; 
return; 

} 

pic62() { 

/* This subroutine shows how the tau line intersection 
will determine the shape of the ellipses */ 

char *st; 
color (1 ) ; 

blOCk(0. 0,0. 0,100. 0,100.0) ; 
color (4 ) ; 

block(0.0,29.0,100.0,90.0) ; 
colord ) ; 

b lock( 49. 0,29. 0,51.0, 90.0) ; 
color (7) ; 

vector(5.0, 80. 0,45.0, 35.0); 
vect or (5. 0,35. 0,45. 0,80.0); 
vector (65 .0,80. 0,80 .0 ,35.0) ; 
vect or (80. 0,80. 0,65. 0,35.0) ; 
color (6 ) ; 

vector(77.0,70. 0,77.0,45.0) ; 
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vector (77. 0,45.0. 76.0,42. 0) ; 
vec t or (76 . 0 ,42 .0 ,73 . 0 ,41 . 0 ) J 
vector (73. 0,41. 0,69. 8 ,42.1); 
vector(69.e,42.1,68.3,4e.0) ; 
vector (68.3,48.0,66.3,70.0); 
vector (68. 3, 70. 0,70. 2, 73. 2) ; 
vector(70.2,73.2,73.2,74.4); 
vec t or (73 .2,74.4,75.7,73.0) ; 
vector (75. 7, 73. 0,77. 0,70.0); 
vec tor (30. 9, 64. 0 ,33. 0 ,60. 0 ) ; 
vector(33.0,60.0,32.8,54.0); 
vector (32.8,54.0,31 .0,51.0); 
vector(31.0,51.0,27.5,48.5); 
vector (27.5,48.5,22.0,49.0) ; 
vector(22.0,49.0,19.3 ,51 .2) ; 
vector (19. 3, 51. 2, 17. 3, 55.3 ) ; 
vec tor (17. 3, 55. 3, 17. 3, 60.0 ) ; 
vector(l7.3,60.0,19.3,64.0); 
vec tor (19.3 ,64. 0,23 .2 ,66.2 ) ; 
vector(23.2,66.2,28.0,66.1) ; 
vec tor (28. 0,66.1 ,30.9,64.0) ; 
color (2 ) ; 

strtxy (19.0 ,85. 0 ) ; 

St=’’DIAGRAM A DIAGRAM 3"; 

strout(st) ; 
strtxy(10.0,98.0) ; 

st="type Continue, Ellipses combined. Hydrophones, Quit”; 
strout (st ) ; 
strtxy(4.0 ,28.5 ) »* 

st=* When a correlation is made from data received at two 
arrays, then an area of probable*'; 
strout (st ) ; 

st=”contact is determined. The probability that the noise 
came from a specific region of "; 
strout ( s t ) ; 

st=”water generally forms ar ellipse^^ as in diagrams A and 
B. When the tau lines are almost'; 
strout( st ) ; 

st=”perpendicular the the ellipse approximates a circle 
which will have a small area of ; 
strout (st ) ; 

st="probabili ty , however many times the tau lines meet at 
relatively small angles"; 
s trout ( st ) ; 

st="and cause the area to become a very long ellipse 
(causing high uncertainty). "; 
strout(st ) ; 
return ; 

} 

pic62l() { 

/* This subroutine shows how ellipses are combined 
char *st; 
pic7( ) ; 
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pic7a( ) ; 
color(l): 

bl oct ( 0 . 0 ♦ 3 . 0 , 100 • 0 , 1 30 . 0 ) > 
strtxy (4 .0 ,97 .0 ) ; 

st=”type ==> Continue, Hydrophones, Sllipsoids, Ouit > 
strout ( St ) ; 

block(0. 0,0. 0,100. 0,7.0) ; 
return » 

} 



pic7( ) { 

/* This subroutine shows how ellipses are combined */ 
char *st; 
color (1 ) ; 

block(0.0,0.0,100.0,100.0) ; 
color (4) ; 

block(0.0,29.0,100.0,90.0) ; 
color (0 ) ; 

vec tor (59. 7, 78. 5.62.8,79.6 ) ; 
vector(62.8,79.6,66.0,80.5K 
vec tor (66. 0,80. 5, 70. 2, 78.1 ) ; 
vec tor (70. 2, 78. 1,72.8 ,74.0) ; 
vector(72.8,74.0,72.2,68.2) ; 
vec tor (72. 2, 68. 2, 69.0, 63.3 ) ; 
vector (69.0,63.3,46.0,47.5) ; 
vec tor (46. 0,47. 5, 41 .0,45.2)? 
vector (41 .0 ,45. 2,36.4 ,44.2 ) ? 
vec tor (36. 4, 44. 2, 33. 2, 46.2); 
vecto r (33. 2,46. 2,31.5 ,50.0) ; 
vector(31. 5, 50. 0,31. 6,54.0); 
vector (31 .8,54.0,33.4,58.2) ; 
vec tor (33. 4, 58. 2, 38.0, 63.8); 
vector (38.0,63.8,59.7,78.5) ; 
color(15 ) ; 

vec tor (46 . 0 ,67. 8 , 58 .8 , 64 .0 ) ; 
vect or (56.8,64. 0,62.0, 61.0 ) ; 
vector (62. 0,61. 0,62. 9, 58.0 h 
vec tor (62. 9, 58. 0,60. 2, 55.4 ) ; 
vector(60.2,55.4,53.3,54.0); 
vect or (53 .3 ,54.0 ,42 .0 ,56 .8) ; 
vec 1 0 r ( 42 . 0 , 56 . 3 , 39 .8 , 60 . 0 ) ; 
vector (39. 8, 60. 0,39. 6, 64.0 K 
vector (39.6,64.0,42.0 ,67.0); 
vec tor (42. 0,67. 0,46.0 ,67.8) ; 
color (2 ) ; 

strt xy (10. 0,98.0 ) ; 
st="type ==> Continue, Cuit”; 
strout (st ) ; 
strtxy(4.0,28.5); 

st=" When several pieces of data can be gathered about a 
specific frequency, then the”; 
strout (s t ) ; 

st=”elipses can be combined to reduce the area of probable 
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contact. As the diagram ; 
strput (s t ) > 

st="illustrates the second set of data^forms an ellipse 
which is inside the first ellipse.*'* 
strput ( st ) ; 

st=”Additional data cause^^more ellipses to be formed inside 
the present ellipses."; 
strput(st); 

st=" Type 'm' to see how more ellipses are combined."* 
strout ( s t ) ; 
return ; 

} 

pic7a() { 

/* Draws the combining ellipsoids with a 2 second 
pause between ellipsoid drawings 

char *st; 
color(0) ; 

vector (48 . 8, 64. 6, 52 .2 ,66 .3 ) > 
vec tor (52. 2, 66.3, 55 .3 ,66.0) ; 
vector(55.3,66.0,56.4,64.2); 
vector(56.4,64.2,56.0,62.0); 
vector(56.0,62.0,54.4,59.8) ; 
vector (54.4,59.8,49.2 ,56.0) ; 
vec tor (49. 2, 56. 0,47.0, 55.5 ) ; 
vect or (47.0, 55.5, 45. 2,55.4) ; 
vector(45.2,55.4,43.7,57.4); 
vect or (43. 7, 57. 4, 44. 3, 60. 2) ; 
vec tor (44. 3, 60. 2, 48.8, 64.6); 
sleep (2 ) ; 
color(15) ; 

vect or (52. 4, 65. 7, 54.4,65.0 ) ; 
vector(54.4,65.0,55.2,63.0); 
vector(55.2,63.0,54.6,61.2); 
vect or (54. 6, 61. 2, 52.0 ,58.2); 
vector (52.0,56. 5,49.0 ,56.5) ; 
vec tor (49. 0,56. 5, 47. 0,56.0); 
vector (47.0,56.0,44.8,56.4) ; 
vec tor (44. 8, 56.4, 44 .0 ,58 . 1 ) ; 
vector(44.0,58.1 ,45.0,60.2) ; 
vec tor( 45. 0,60. 2,49.0, 64. 0) ; 
vect or (49. 0,64. 0,52. 4,65.7 ) ; 
sleep(2) ; 
color (0 ) ; 

vec tor (48. 3, 62. 2, 50. 8 ,59.8) ; 
vect or( 50. 3, 59.8, 50. 8,58.0 ) ; 
vector(50.8,58.0,50.0,57.2); 
vect or (50. 0,57. 2,48. 2 ,57.0) ; 
vec tor( 48. 2,57.0,47. 5 ,57.2); 
vec tor (47. 5, 57. 2,46.0 ,59.8) *' 
vec tor (46. 0,59.8, 46.2,61 .5); 
vector(46.2,61.5,47.2,62.0); 
vec tor (47. 2, 62. 0,4c. 3, 62. 2 h 
strtiy(48.4,61 .0) ; 
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strout (st ) ; 
strtiy(10. 0,40.0) » 

st=”The area around point A is now the contact area. 

strout (s t ) ; 

return? 



} 



f 



pic8() f /* This subroutine shows the overall systen '-V 
char *st» 
color (1 ) ; 

block (0.0,0.0,100. 0,100.0); 
color (4) ; 

block( 0.0, 29.0, 100.0,90.0) ; 
color(8); 

block(5.0,40.0, 6.0,47.0) ; 
block(5. 0,50. 0,6. 0,57.0); 
block( 5.0, 60. 0,6. 0,67.0) ; 
block(12.0,48.0,25.0,62.0) ; 
bl ock( 25.0, 75. 0,32.0, 85.0 ) ; 
block(40.0 ,73.0,48.0,80.0) ; 
block( 55. 0,73.0, 75. 0,80.0); 
block(50.0,45.0,60.0,60.0) ; 
block( 72. 0,45.0, 82. 0,60.0); 
block(o0. 0,32. 0,75. 0,38.0) ; 
vector(5. 5, 44.0, 13.0,55.0); 
vec tor (5. 5, 54. 0,13.0, 55.0 ) ; 
vector (5. 5, 64. 0,13. 0,55.0); 
vector (20.0,62.0,25.3,80.0) ; 
vec tor (32. 0,80. 0,44. 0,77.0); 
vector (44. 0,77. 0,55. 0,77.0) ; 
vec tor ( 65 .0 ,73. 0 ,55 .0 ,60 .0 ) ; 
vector (65.0,73.0,77.0 ,60.0) ; 
vector( 55. 0,45. 0,65. 0,38.0); 
vector (77.0,45.0,65.0,38.0) ; 
color (2 ) ; 
strtx^(3.0 ,68.0 ) ; 
st=*’A ; 
strout ( St ) ; 
st="R”; 
strout (st) ; 
strout (st ) ; 

f* •• 

st= A ; 
strout (s t ) ; 

ft ft 

st= I ; 
strout (st ) ; 

tt _ ft 

st= s ; 
strout (st ) ; 
strtxy(13. 0,60.0); 
st=" base”; 
strout(st); 
st=" STATION”; 
strout (st ) ; 
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strtxy(27.0,62.3 ) » 

st="ARC" ; 

strout (st ) ; 

strtxy(41 .0,78.0) ; 

st=’ FILTER CORRELATOR’; 

strout (st ) ; 

strtxy(52.0,58.0) ; 

st=" PEAK SURFACE"; 

strout (st ) ; 

st=" DATA plots"; 

strout ( st ) ; 
strtxy (55.0,36. 3) ; 

St=" TRACKERS"; 
strout (st ) ; 
strtxy(10. 0,98.0); 

st="type ==> Continue, Techniques (of correlation). 
Parameters, Quit ; 

strout (st ) ; 
strtxy (4 .0 ,28 .5 ) ; 

st=" A brief overview of the entire system demonstrates the 
amount of complex machinery"; 
strqut(st) ; 

st="required to accomplish this surveilance. Signals are 
recieved at the arrays and are"; 
strout (st ) ; 

st="transmitted to the base stat ion ,,, then sent via satalite 
to the ARC. In the ARC the data"; 
strqut(st ) ; 

st=”is then sent through filters and a correlator, where 
the computer establishes two sets"; 
strout (s t ) ; 

st="of data (peak data files and surface plots). The peak 
data and surface plots are "; 
strout (st ) ; 

st="reviewed by the trackers to determine any possible 
vessel tracks."; 
strout(st) ; 
return; 

} 

pic5() { 

/* Same subroutine as in segment 1, but it must be 
redrawn at this point due to the fork process */ 

char *st; 
colord ) ; 

block(0.0,90.0, 100.0,100.0) ; 
block (0.0, 0.0, 100. 0,28.0) ; 
ocean ( ) ; 
color (2 ) ; 

strtxy(10. 0,98.0); 
st="type ==> Continue, Quit"; 
strout (st ) ; 
strtxy(4.0,28.5) ; 

st=" These large distances between arrays allow the system 
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to cover ; 
strout(st); 

st="a large area of ocean, let's say 403 iriles by 403 rriles 
or roughly"; 
strout (st); 

st="the size of Montana. This area can be further subdivided 
into 100 sectors,”; 
strout (st ) ; 

st="each 40 miles square to make the tracking easier. Each 
of thes sectors ; 
strout (st); 

st="can presently be covered by XXX correlations per hour.’’; 
strout ( st ) ; 
disect ( ) ; 
color (13) ; 

block(l9.6,64.3,31.0,66.0); 

color(0); 

st="400 miles"; 

st rtxy ( 14 .0 ,84.0 ) ; 

strout (st ) ; 

strtxy(27.0,72.0); 

strout ( s t ) ; 

return ; 

} 

disect() { 

float xl,x2,yl,y2; 

color (0 ) ; 

x2=26.0; 

yl=60.0; 

y2=80.0; 

for (xl=10.0;xK=27.0;xl=xl+1.6) 
vector (xl ,yl ,xl ,y2) ; 
xl=10.0; 

for (yl=60.0;yl<=81 .0;yl=yl+2.0) 
vector(il,yl ,x2,yl) ; 

} /* End of segment 2 */ 
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7 ############################################^^############# 

# This is the fourth section of the tutorial and it gives # 

# the user a detailed look at the types of displays that 

# he will he seeing under actual operating conditions. It # 

# explains specifics to watch out for, whereas the senario# 

# gives only a very brief explanation. The flow of the # 

# program is very similiar to the first two sections. # 

rrain() { /* main of the fourth section '•'/ 

float x,y,zj 

char cc ,cd ,ce,**'st» 

int samp,l> 

ramtek()> /* initializes the Ramtek system 
writon(l ) » 

colortable ( ) » establishes a new color table 

colort (10) ; 
pic8( ); 
cc = 'z ' ; 



while (cc== 'z ' ) 
cc=retchar( ) ; 


{ while #1 */ 


switch{cc ) 


f 


/*!' switch #1 */ 


case "c ' : 


/« 


Continue */ 


pic9a ( ) ; 
break ; 


/« 


positional data display 


case 'r': 
pstop( ) ; 


/* 


Return */ 


pic8( ) ; 
cc='z ' ; 
break; 




overall system display 


case 'x ' : 
pic81 ( ) ; 
cd='z'; 




technique display 


while (cd 


=='z 


') { /* while #2 



cd=retchar ( ) ; 

switch(cd) { /’*' switch #2 '^/ 

Continue */ 

/* Return ^' / 

technio.ue display */ 

formula display */ 



parameter display */ 



case 'c': 
pic9a ( ) ; 
break; 
case 'r': 
pstop ( ); 
pic81( ); 
cd='z 
break; 
case 'f': 
picSlK); 
cc='z '; 
break; 
case 'p ' : 
pic82( ) ; 
cc='z '; 
break; 
default : 
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1 



4 







} 



Cd='z'; 



/* end switch #2 */ 

} /* end while #2 

break; ^ 

case 'p^: /’*' parameter display */ 

pic82{ ); 
cc='z ' ; 
break; 
default : 
c c — z > 

} /’!' end switch #1 */ 

} /* end while #1 */ 



cc='z ' ; 



/* while #3 -V 



while (cc=='z') { 

cc=retchar { ) ; 

switch(cc) { /* switch #3 */ 

/* Continue 

/* peak data display */ 



case c : 
pic9b ( ) ; 
break; 
case 'v': 
pstop( ) ; 
pic9a ( ) ; 
cc='z '; 



/* Return ’='/ 

/* position data display ^- / 



break; 
defaul t : 
cc= 'z '; 

} end switch #3 

} /=!= end while #3 */ 

cc='z'; 

while (cc=='z') { /* while #4 */ 

cc=retchar ( ) ; 

switch(cc) { /* switch #4 */ 

Continue -/ 

/’I' scores display =<'/ 



'c ' 



}' 



} 



case 
pic9c ( ) ; 
break; 
case 't': 
pstop( ); 
pic9b ( ) ; 
cc = 'z '; 
break; 
default : 
cc='z ' ; 



Return 

peak data display */ 



/* end switch #4 */ 
end while #4 */ 



/* while #5 -/ 



cc='z 

while (cc=='z') { 

cc=retchar ( ) ; 

switch(cc) { /’*' switch #5 */ 

case 'c': Continue */ 

picl0{); /* surface plot display */ 
break; 

case 'r': /* Return ^‘/ 

pstop( ); 

pic9c(); scores display */ 
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* * • 

cc= z » 

break; 
default : 
cc= z > 

} /’*' end switch #5 

} /* end while #5 */ 

cc = 'z 
samu=l ; 



while (cc=='z') { /* while #6 */ 

cc=retchar ( ) ; 

switch(cc) { /* switch #6 */ 

case 'c': /* Continue */ 

piclK); /* covariance matrix display 

break; 

case 'v'i /* Return */ 
pstop ( ) ; 

picl0(); /* surface plot display */ 



cc= z » 
break; 

case 's': /* sample surface plots 

if (samp==l) { 
picl01( ) ; 
samp=2; 



} 



else { 
picl02( ); 
samp=l ; 

} 



cc='z ' ; 
break; 
default : 
cc= 'z ' ; 

} /* end switch #6 */ 

} /* end while #6 ’*'/ 

} /=!* end main of section 3 ^'/ 






pstop() { /* Quit? subroutine */ 

char ’i'st tStopt^'sp; 
sp=" ”; 
colordl ); 

block (0.0, 0.0, 100.0, 100.3); 
color (5 ) ; 

strtxy(45. 0,80.0); 
st=”co you"; 

strout (st ) ; 
strout( sp) ; 
st="REALLY"; 
strout(st); strout(sp); 
st="WANT to"; 
strout ( St ) ; 
strout (so ) ; 
st=" RETURN TO"; 
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strout(st); stro\it(sp)? 
stroutC’THE I^^IN ); strout(sp); 
strout ("PROGRAM?"); 
st="(y / n)"; 
strout ( St ) ; 
stop=retchar ( ) ; 
if (stop=='y') { 

color (0 ) > 

bl ock( 0.0, 0.0, 100.0, 100. 0) ; 
ex i t ( ) ; 

} 

return t 

} 



colortatle ( ) { /* establishes a new color table ^'/ 

int a [161 » 

a[0] = triple(0,0,0); 
a[ll = triple(15,0,0); 
a[2l = triple(0,15,0) ; 
a[3] = triple(0,0,15); 
a [4] = tripled 15, 5,0) ; 
a[5l = triple(2,0,6); 
a[6] = trix)le(0,10.0) ; 
a[7] = triple(2,6,10); 
a [a] = triple(6,10,2) ; 
a [9] = triple(10,2,6); 
a[10l = triole (13,5,2); 
aUH = triole(5,2,13) ; 
a[l2] = triple (2,13,5); 
a[l3l = triole(15,0,15) ; 
all4l = triplefl0,4,4); 
a[15l = triple(15,15,15); 
clrtbl(10,a); 
return; 

} 



/* black */ 
blue */ 

/* green */ 
red 

/- light blue 
/* maroon */ 

/* bright ^reen 
/* peach ’*'/ 

/* pail green 
/* purple '•'/ 

/* medium blue 
/* hot pink */ 

/* liisht green ^'/ 
/- pink 

/■i? greyish blue 
/- white -^Z 



pic8() { 

/* Redraws th 
char *^st; 
colord ) ; 

block(0 .0 ,0 .0 ,100 . 
color(4) ; 

block(0. 0,29.0, 100 
color (8) ; 

block( 5. 0,40. 0,6.0 
block(5. 0,50. 0,6.0 
block(5. 0,60. 0,6,0 
block(12. 0,48. 0,25 
block(25. 0,75. 0,32 
block(40. 0,73. 0,48 
block(55. 0,73.0 ,75 
block(50. 0,45. 0,60 



display of the 



5,100.0) ; 

.0,90.0); 

,47.0); 

,57.0); 

,67.0); 

,0,62.0); 

.0,55.0); 

.0,80.0); 

.0,80.0); 

.0,60.0) ; 



overall system 
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bloc’^(72 .0 ,45.0,82.f^,60.0) ; 
block (50.0, 32.0, 75.0,38.0); 
vector(5. 5, 44. 0,13. 0,55.0); 
vector(5. 5, 54. 0,13. 0,55.0); 
vec tor (5. 5, 64. 0,13.0, 55.0) ; 
vector(20. 0,62. 0,25. 3, 80.0) 
vector(32. 0,80.0, 44 .0,77.0) 
vector( 44. 0,77. 0,55. 0,77.0) 
vector(65. 0,73. 0,55. 0,60.0) 
vector(65. 0,73. 0,77.0, 60.0) 
vector( 55. 0,45. 0,65. 0,38.0) 
vec tor (77. 0,45. 0,65.0, 38.0) 
color (2 ) ; 
strtxjf (3. 0,68.0); 
st="A ; 
strout (st ) ; 

• t t* 

st= H ; 

strout ( St); 

strout (st ) ; 

st= A ; 

strout (s t ) ; 

st="Y"; 

strout (s t ) ; 

st="s“; 

strout (st ) ; 

strtxy(13. 0,60.0) ; 

st=" base”; 



7 



9 



f 

• 

9 

m 

9 



strout (st ) ; 
st=’’ station”; 

strout(st ) ; 
strtxy(27.0,82.0) ; 
st="ARC”; 
strout (st ) ; 
strtxy(41 .0,78.0) ; 
st="FILTER correlator"; 

Strout (st ) ; 
strtxy(52.0, 58. 0 ) ; 
st=” PEAK 
strout ( s t ) ; 
st=” DATA 
strout (s t ) ; 
strtxy(55. 0,36.0); 

St=" TRACKERS”; 
strout (st ) ; 
strtxy(10. 0,98.0); 
st=”type ==> Continue, 

Parameters, Quit”; 
strout (st ) ; 
strtxy (4.0 ,28.5) ; 

st=" A brief overview of the entire system demonstrates the 
amount of comiplex machinery"; 
strout (st ) ; 

st=”required to accomplish this surveilance. Signals are 
recieved at the arrays and are"; 



sureace" ; 

PLOTS"; 

Techniques (of correlation), 
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strout (st ) ; 

st=”transrri t ted to the base station, then sent via satalite 
to the ARC. In the ARC the data ; 
strout ( St ) ; 

st=”is then sent through filters and a correlator, where 
the computer establishes two sets’ 5 
strout (st ) ,* 

st="of data (peak data files and surface plots). The peak 
data and surface plots are "? 
strout ( St ) ; 

st="reviewed by the trackers to determine any possible 
vessel tracks.”; 
strout ( St); 
return; 

} 



pic81() ( 

/* This display explains the technique used in 
the correlation process / 

char ^st,*sp; 
color (1 ) ; 

block(0.0,0.0,100.0,100.0) ; 
color (4 ) ; 

block{0. 0,0. 0,100. 3. 90.0) ; 
color (2 ) ; 

strtxy(10.0,98.0); 

st="type Continue, Formulas, Parameters, Quit”; 
strout {st ) ; 
sp=” ’ ; 
c olor (5 ) ; 

st=” STAT2MFNT OF THE TECHNIQUE 

strtxy(10. 0,80.0); 
strout ( s t ) ; 
strout (sp ) ; 

st=” Given two sequences of time series data, a function 
represents the "; 
s trout ( St); 

st="degree of match of the two time series as a function of 
adjustment of the"; 
strout (s t ) ; 

st=”delay and of ad^|ustment of the relative Doppler ratio 
between the two ; 
strout(st); 

st="series. The term "coherent", applied to this function, 
implies that"; 
strout (st ) ; 

st="the relative phase evolutions of the time series are 
male use of in”; 
strout (s t ) ; 

st=”determining the degree of match, rather than discarded 
as in an incoherent”; 
strout ( s t ) ; 

st=”calculation . The time series of interest to us are 
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finite, discrete,’’; 
strout ( St ) ; 

st="f requency-shif ted , band-limited, complex time series 
obtained from"; 
strout(st); 

st=’’passive sonar sensors (hydrophone arrays).’; 
str out ( St ) ; 
return ; 

} 



picSllO { 

This display illustrates the formulas used 
in the correlation */ 
char *st ,=*‘sp; 
colord ) ; 

b lock( 0.0, 0.0,1 00. 0,1 00.0 ) ; 
color (4 ) ; 

bloclc(0.0,25.0, 100.0,90.5 ) ; 
color (2 ) ; 

strtxy(10 .0,98.0 ); 

st=’’type ==> Continue;^ Techniques (of correlation). 
Parameters, Quit ; 
strout ( s t ) ; 

«f tf 

sp= ; 

color (5 ) ; 

strtxy (5 .0 ,88.0 ) ; 

st="l) I(a,t) = Xdn) X (n-t/ T)e"; 

strout (st ) ; 
strout ( sp ) ; 

st="2) X'(n) = X (an-(a-l)N/2)"; 

strout (s t ) ; 
strout (sp) ; 

st="3) A = X'(n) X (n) X (m-t/ T)X (m-t/ T)’’; 

strout (st ) ; 
strout (sp); 

st=" where X(a,t) is the modulus correlation coefficient" 
strout (st); 

st=" a is the relative Doppler ratio compensation"; 

strout (st); 

st=" t is the delay compensation"; 

strout (st); 

st=" A is the normalization constant"; 

strout(st); 

st="x and X are time series sampled at time intervals t"; 
strout (st ) ; 

st=" FI and F2 are the center frequency of the 

passband for the time series"; 
strout (st ) ; 
strtxy(5 .0 ,36.4) ; 
st=" 1 2"; 

strout (st ) ; 
strtxy (5 .0 ,90.2 ) ; 

st=" 1 N-1 - 211i(aFl-F2)n T"; 
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strout (st ) ; 
st = " 

s trout (st ) ; 
strout ( sp) ; 
st=” 1 

strout ( St ) ; 
st=" 2 N-1 

strout ( St ) ; 
s t =” n =0 



A n=o 



1 1 



1 



N-1 



m=o 



M 



2 






tt 



2 



9 



strout ( St ) ; 

vector(9.0,84.5,9.0,88.2) > 
vector(15.8,S4.5,15.8,88.2); 
vector (23 ,0 ,82. 0 ,23.0 , 90 .0 ) ; 
ve c tor (68. 0,82. 0,68.0, 9 0. 0) J 
PI oclc (35. 0,86.0, 35.5, 86.8 ) ; 
vect or(45 .0 ,85. 0 ,46 .5 ,85 .0 ) > 
vector(45.0,85.0,45.7,S7.0) ; 
vector (45 .7,87. 0 ,46 .5 ,85 .0 ) ; 
vector(64,5,87.0,66.0,87.0) ; 
vector (64.5,87.0,65.2,89.0) ; 
vec tor (65. 2, 89. 0,66. 0,87. 0) ; 
vect or (51 .0 ,90. 2 ,53 .0 ,90 .2 ) ; 
vector (45. 8,65.0,47.3,65.0) ; 
vector (45. 8, 65. 0,46. 5, 67.0); 
vec tor (46. 5, 67. 0,47.3 ,65.0) ; 
vect or (58,2,67.0,59.0,65.0) ; 
vec t or ( 57 . 5, 65. 0 , 58 .2 ,67 .0 ) ; 
vector(57.5,65.0,59.0,65.0) > 
vector(13.5,67.5,17.0,67.5); 
vector (13.5,67.5,16.0,66.2) ; 
vec tor (13. 5, 65. 0, 16. 0 ,66.2) ; 
vector(13. 5, 65. 0,17.0,65.0) ; 
vector(32.0,67.5,35.5,67.5); 
vect or (32. 0,67. 5, 34. 0,66.2 ) ; 
ve c tor (32, 0,65. 0,34,0, 66.2 ) ; 
vector (32.0,65.0,35.5,65.0) ; 

Plock( 24.8, 66. 4, 25.2,66.9); 
vector (24.0,87.0,27.5,87.0) ; 
vec tor (24. 0,87. 0,26. 0,85 .8) ; 
vec tor (24, 0,84. 5, 26.0,85.8 ) ; 
ve c tor (24. 0,84. 5, 27. 5,84.5 ) ; 
vec tor (71. 7,35. 0,73. 3,35. 0) ; 
vec tor (71 .7,35.0,72.5,37.0); 
vec tor (72. 5, 37. 0,73. 3, 35.0) ; 
strtxy(4.0,22.5) ; 
c 0 1 p r ( 2 ) ; 

st=”The basic correlation structure can be seen in equation 
1 as the modulus of”; 
strout (st ) ; 

st="norirali?ed sum of products (with one series conjugated) 
of the time series”; 
strput(st ) ; 

st="samples. The other two equations are used for delay and 
Toppler compensation"; 
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strput (st ) j 
st="of the 
s trout (st ) » 
return i 
} 



time series prior to correlation. 



J 



pic82() f 

/^' This display shows the various parameters that 
can he altered to get a better picture */ 
char *st ,*sp ; 
col or ( 1 ) ; 

block( 0.0, 0.0, 100. 0,1 00.0 ) ; 
color (4) ; 

b lock (0.0, 29. 0, 100.0, 90.0 ) ; 
color (2 ) ; 

strtiy (10 .0,99.0 ) ; 

st=”type ==> Continue, Techniques (of correlation), Quit"; 
strout (st ) ; 
strtxy( 16.0 ,25.0); 

st=" Listed above are a few of the various parameters that 
can be”; 
strput ( s t ) ; 

st=”adjusted to get a better track of the vessel. Other 
parame tens” ; 
strput (st ) ; 

st=”are demonstrated throughout the tutorial and if the 
limits are”; 
strput(st); 

st="exceeded , the computer will adjust and notify you."; 
strout ( st ) ; 
color(0) ; 

vector(43.0,76.0,51.5,76.0); 
s trtiy (20 .0 ,80. 0 ) ; 
st=" ranges”; 

strout (st ) ; 

St="LONGITUDE 30.00-50.00”; 

strout (st ) ; 

St="LATIDUDE 150.00-130.30"; 



strout (st ) ; 
st="COHERENCE LIMIT 
Strout (st ) ; 
st=”TRACK: NUMBER 
strout ( st ) ; 

St="RUN NUMBER 
strout(st) ; 
St="REGION NUMBER 
Strout (st ) ; 
return; 



0 . 0 - 2 . 0 ”; 
1 - 10 ” ; 
1-7"; 
1-25"; 



} 



pic9a() { 

/’!' This display shows the user what kind of 

information he will receive when he actually 
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uses the system "/ 
char *st ,cc ,*stl ,’"sp; 
colord ) ; 

hlock(0.0,0.0,10C'.0»100.5’); 
color (4 ) ; 

block(0.0,29.0,100.0,90.0) ; 
color(2)» 

strtxy (10.0, 98.0) ) 

st="type ==> Continue, Quit”; 

strout ( s t ) ? 

color (5 ) ; 

strtxy(5. 0,66.0) ; 

Stl=" RUN NUM3ER 6 REGION NUMBER 6 TRACK NUMBER 9" ? 
strput^(stl ) >* 
sp=" ‘ ; 
strout ( sp) ; 

Shows the position, course, and speed of a vessel */ 



st='Water Time 


Peak 


Position 


Coordinates 


Courses 


strout (st ) 
St=” 23-Fel 


)-83 


Number 


Lat i tude 


Longi tude 


C ourse 


strout (st ) 
strout (sp) 
st=” 14:58 


03 


0 


39.5000 


147.5000 


0.0 


strout ( st ) 
st=" 14:58 


03 


3427 


39.4711 


147.4707 


142.0 


strout (st ) 
st=" 15:04 


23 


3533 


39.4682 


147.4552 


154.7 


strout (st ) 
st=" 15:14 


30 


3449 


39.421? 


147.4189 


153.9 


strout (s t ) 
st=" 15:38 


35 


3540 


39.3582 


147.4417 


160.3 


strout (st ) 
st=” 15:48 


44 


3452 


39.3980 


147.4815 


161.6 



strout (st ) ; 
color (2 ) ; 
strtxy(4.0 ,28.5) ; 

st=" This data illustrates the estimated position, course 
and speed of a suspected”) 
strout (st ) ; 

st=”vessel. Depending on how consistent the data is, the 
more accurate the estimated”; 
strout (s t ) ; 

st=”position probably is. For example, the courses end 
speeds in the above display”; 
strout (st ) ; 

st=”are relatively close together, thus the data is 
probably from a vessel. If the”; 
strput(st) ; 

st=”courses were 159.0, 135.6, 160.4, 122.7, 150.3 then the 
data would probably be”; 
strout (st); 

st="from noise in the ocean."; 
strout (st ) ; 

> 
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i 






i 

J 





t)ic9b ( ) { 

/* Shows the reference stations and their tau and 
doppler values */ 
char *st tCCj’^^stl ,*sp» 
color(l)» 

hlock(0.0,0.0,100.0.100.(^) '» 

color (4 ) ; 

block(0.0,29.0, 100.0,90.0) ; 
color(2 )» 

strtxy (10.0 , 98. 0 ) » 

st="type ==> Continue, Quit"; 

strout ( St ) ? 

color (5 ) ; 

strtxy(5. 0,86.0) » 

Stl=" RUN NUMBER 6 REGION NUMBER 6 TRACK NUMBER 9"; 



strput,(stl ) ; 



sp= ; 
strout ( sp) ; 



st= Receipt Time Peak 

Peak Data 

strout (st ); 


-REF Station- 

• 

> 


-PPD Station- 


st= 20-Eel 
TAU 

strout ( st ) 
strout Up ) 


)-80 Number STM/3M 

DOPPLER Gamma-Sq” * 


Ereq 


STM/BM 


Ereq 


st=” 00; 00 
strout ( s t ) 


00 


0 


0 


0 . 00 


3 


0.00 


St=” 15:16 
strout (st ) 


15 


3427 


1323024 


41.40 


1322029 


41.40 


st=" 15:16 
strout ( st ) 


15 


3533 


1322031 


41 . 40 


2411020 


41 .00 


st=” 15:33 
strout ( st ) 


19 


3449 


1323024 


41.40 


1322030 


41.40 


st=" 15:50 
strout ( st ) 


23 


3540 


1322031 


41.40 


2411021 


41.40 


st=" 16:07 
strout (st ) 
color (2 ) ; 
strtxy(4.0 , 


27 

,28.5) 


3453 

• 

f 


1323025 


41.40 


1322030 


41 .40 


st=” This 


da ta 


gives you 


the same 

ft 


peak numbers, the 


array 



stations that received the ; 
strout ( St ) ; 

st=”si^nals, the frequency of the signal and peak data. The 
variances in the tau and” » 
strout (st ) ; 

st=”doppler values can give evidence as to the validity of 
the track. The switching of"; 
strout ( St ) ; 

st="the tau values frorr -416.7 to 27.3 to -412.8 ect. rreans 
that the ellipsoids will 
strout (st ) ; 

st="probably combine very well^^because the data obviously 
is being collected at two 
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strout(st); 

st="dlf ferent sets of arrays."* 

strout(st); 

return » 

} 

pic9c ( ) f 

/’!' Shows the Chi-square scores for the various data '■'/ 
char *st tcc.'i'stl ,*spJ 
color (1 ) J 

hlock( 0.3, 0.0, 100. 0,1 33.0); 
color (4) ; 

hloclt(0.0,29.0,100.0,90.0) ; 
color (2 ) ; 

strtxy(10. 0,98.0); 

st="type ==> Continue, Cuit"; 

strout (st ) ; 

color (5 ) ; 

strtxy(5 .0 ,86.0 ) ; 

Stl=" FUM NUMBER 6 REGION NUMBER 6 TRACK NUMBER 9"; 

strout (stl ); 

.. .. 

sp= * 
strout (so ) ; 

ft - — ^ 



st= Water Time 
strout (st ) ; 


peak 


Pr ob 


— CHI Square 


Scores — 


st=" 23-Feb-80 
strout (st ) ; 
s trout ( sp ) ; 


Number 


Score 


S tagewi se 


Cumula ti ve 


st=" 14:56:33 
strout ( s t ) ; 


3 


0.30 


3.0000 




0.0000 


st=" 14:58:03 
strout (st ) ; 


3429 


1 

• 

00 


0.3171 




0.3171 


st=" 15:04:23 
strout (st ) ; 


3533 


-4.89 


0.0162 




3.1667 


st=" 15:14:30 
strout (s t ) ; 


3449 


-3.99 


0.4410 




0 .2581 


st=" 15:38:35 
strout (st ) ; 


3540 


-4.66 


1.4096 




0.2460 


st=" 15:48:44 


3453 


-4 . 81 


2.0796 




0.8527 



strout (s t ) ; 
color (2 ) ; 
strtxy(4.0 ,28.5 ) ; 

st=" This data shows the sane peaks, their Chi Square 
probabilities of actual "; 
strout (st ) ; 

st="position , and their measured residuals. The Chi Square 
scores are broken 
s trout (s t ) ; 

st=”into two .groups, each individual score and tne cumula- 
tive total. A good "; 
strout (s t ) ; 

st="check as to the probability of an actual contact is the 
cumulative score,"; 
strout ( s t ) ; 
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st="near 1.0 
strout ( s t ) ; 
return ? 



} 



is 



quite good ; 



picl0() ^ 

/=!' This display explains what a surface 
plot will look like and show. */ 

char *st ,*sp ; 
colord ) ; 

h lock( 0.0,0.0,100.2 ,100.0) J 
color (4) ; 

h lock (0.0, 29.0, 100.0, 90. 0) ; 
cclor(2) ; 

strj:xy{10. 0,98.0); 

st=”type ==> Continue, Samples, Quit", 
strout {st ) » 
strtxy(4.0 ,28.5) ; 

st=" By examining a surface plot the tracker may be able 
to see a pattern of peaks"; 
strout (st ) ; 

st="that would establish a vessel's track. Care must be 
taken when viewing the"; 
strout ( st ) ; 

st="surface plot displays because the size of the area 
(range of latitude and longitude)"; 
strout (st ) ; 

st="can be varied, thus giving the appearance of a track 
when there might not be"; 
strout (st); 
st="one there."; 
strout (s t ) ; 
color(7) ; 

block(40.0,45.0,71.5,78.0 ) ; 
col or (0); 

st="Region Number 6"; 
strtxy (5. 0,70.0); 
strout (st ) ; 

st="Coherence Limits 1.0"; 
strout _(s t ) ; 
st=" — ' ; 

•• tt 

sp= ; 

strtxy (38. 5, 60.7 ) ; 
strout (sp) ; 
strout ( st ) ; 
strout (sp) ; 
strout (st ) ; 
strout ( sp ) ; 
strout (st ) ; 
strout(sp) ; 

st=" 1111 1"; 

strout (st ) ; 

st="40.00"; 
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strtxy(32. 5,75.7 ) ; 
s trout ( s t ) : 
s t rtxy (32 . 5 ,46. 2 ) ; 

St =”38. 30 — 
strout (st ) ; 
strtxy(36.0,42.7) ; 

St=” 147.30 145.33"; 

strout(st ^ ; 
circ ( ) ; 
return > 

} 



circ ( ) 


{ 




Praws a surface 


plot 


char *A 










-l; 


A="0 


0 




0 0 0 


0 


o” 


S=” 0 




0 


0 0 




0 


D="o 






0 0 




o" 


F=” 


0 




0 


0 




G = ” 




00 


0 


0 




H=” 0 




0 


0 




0 " 


J=" 






0 0 


0 




5=" 0 




0 


0 0 




0 


L=" 0 


0 




0 


0 





col or f 0 ) ; 

strtxy(40 .0 ,80.0 ) ; 
strout (A ) ; 
strout (S ) ; 
s trout ( D ) ; 
strout (F) ; 
strout (G) ; 
strout(Hh 
strout { J ) ; 
strtxy(40. 0,77.0); 
dblwidd ); 
strout (L ) ; 
strout (A ) ; 
strout(H) ; 
strout (H) ; 
strout(H) ; 
strtxy (41 .0,59.9); 
dblwid(0) ; 
strout (D ) ; 
strout (K ) ; 
strout (I ) ; 
dl)lwld(0); 
color (4 ) ; 

block(39.0,78.3,100.3,65.3) ; 
bl ock( 71 .5,44.0,100.0,85.0) ; 
} 



picl01() { /’i'Draws another surface ulot sarple '^/ 
char *st,*sp; 
color (1 ) ; 
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t iocic(0.e, 0.0, 120.0 ) ; 

col or (4 ) ; 

b lock( 3. 0,29. 3. 130.0,90.0) ; 
color (2 ) ; 

s trtxy (10.0, 98.0 ) ; 

st='*type ==> Continue, Samples, Cuit"; 
St rout *( s t ) ; 



strtxy(4.0 ,26.5) j 
strout ( sp ) ; 

st=”This surface plot shows a very probable tracy, pointed 
toby the a rrow ; 
strout (st ) ; 

st=”Because the size of the plot is relatively small (60 
miles square) and the"; 
strout ( st ) ; 

St =”coherence limit is relatively high ( 1.0 ), this is 
probably a track of a”; 
strout(st); 

st="vessel and should be further investigated."; 
strout (s t ) ; 
color (7 ) ; 

block(40.3,45.3,7l.5,76.3) ; 
color(0); 

st="P.egion Number 23”; 
s t rt xy (5 .0 ,70 .3 ) ; 
strout(st); 

st = ’’Coherence Limits 1.0”; 
strout (st ) ; 

t* t» 



st= — 



y 



ft 

St) = 



• » 



strtxy(36.5,83.7) ; 
strout (sp) ; 
strout (st K 
strout ( sp ) ; 
strout (st ) ; 
strout ( sp ) ; 
strout (s t ) ; 
strout (sp ) ; 

st=" 1111 1”; 

strout (st ) ; 
st="39.00" ; 



st rtxy (32 .5 ,75.7 ) ; 
strout (st ) ; 
strtxy(32.5,46.2); 
st="38.00 — 



strout (st ) ; 
strtxy(36.0,42.7) ; 

st=” 147.00 146.00"; 

strout (st ) ; 
circ2 ( ) ; 
color(0) ; 

block(50.4,83.0,51.3,87.0) ; 
vec tor (5 0.7, 79. 0,49. 4,83.0 ) ; 



150 



vector(52.7,79.3,52.0,83.0) » 
return ; 

} 

circ2() { /* Drawing a surface plot */ 

char n; 

char =^sp,*st; 

char 



o 

o 
rii ' 


0 


C 0 


0 


0"; 


S= 0 

D=’’o 

?=” 0 
G=" 


0 

0 

oc 


0 

0 

0 

0 


0 

0 


0 [[ y 


E=” 0 
J=" 


0 

0 


0 

0 


0 


0 ” ; 


K=" 0 

L=” 0 


0 


0 c 

0 


c 


0 ; 



color (0 ) ; 

s trtxy (40 .0 ,80 . 0 ) > 
strout ( A ) ; 
strout (S ) ; 
strout (D) ; 
strout (?) ; 
strout (G) ; 
strout (H); 
strout ( J) ? 
strtxy(40. 0,77.0); 
dhlwidd ) ; 
strout (L ) ; 
strout (Ad 
strout (H) ; 
strout (Id 
strout (L ) ; 
strtiy(41 .0,59.9); 
dhlwid(0); 
strout (Id 
strout (K) ; 
strout(L); 
dblwid(0) ; 
strtxy(42. 0,72.0); 
strout (G ) ; 
strout (G ) ; 
strout(S ) ; 
strout (G ) ; 
strtxy(40.0,76.0) ; 
strout (G ) ; 
strout (s ) ; 
strout (A ) ; 
strtxy(40. 0,75.0); 
dhlwidd ); 
strout (Kd 
strout (?) ; 

St rout ( H ) ; 
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ii 



strout (L^ ; 
st= Oo * 

s trtxy(47.0 , 82. 0 ) ; 
strout (st ) ; 
strout (st ) ; 
strout (sp) 5 
strout (st ) ; 
strout (sp) ; 
strout (st ) ; 
strout (st ) ; 
color(4); 
dblwid(0) ; 

block(39.0 ,78.0,10e.e,B5.0) ; 
block( 71 .5,44.0,100.0,85.0); 
} 



piclK) { 

This display shows the covariance matrix and then 
asks the user if he wishes to move on to the 
Senario or redo the tutorial */ 
char *st ,cc ,*stl ,*sp; 
color (1 ) ; 

block(0.0,0.0,100.0,100.0) ; 
color (4) ; 

b lockr0.0, 29. 0, 100.0,90.0) ; 
color (2 ) ; 

s trtxy( 10 .0,98.0 ); 

st="type Continue, Senario, Tutorial (again), Cuit”; 
strout (st ) ; 
strtxy(5 .0 ,88 .0 ) > 
color (5 ) ; 

Stl=" ?.UN NUr^BER e REGION NUMBER 6 TRACK NUMBER 9"; 



Strout j(stl ); 
so=” ’ ; 



st="Vater Time 
MATRIX 



strout (st ) ; 
st=" 23-Eeb-80 



strout (st ) ; 
strtxy (5 . 5 ,73 .0 ) 
st=*' 14:58:03 



strout ( st ) ; 
st=" 

strout (st ); 

• • 

st = 

strout (st ) ; 

t« 

st = 

strout (st ); 
strtxy(5.5,49.0) 
st=" 15:04:23 
strout ( s t ) ; 
st=" 



strout ( s t ) ; 



J 



J 



peak 



Number 

3427 



3533 



COVARIANCE 

• ff 

J 



0.03136 


0.00000 


0 . 00000 


37.88962 


-0.03150 


0.00000 


0 . 00000 


-48 .49765 


0.00985 


0.00047 


0.00047 


0 .31107 
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3.00551 



0.30178 



St = 

strout ( s t ) ; 

st=” -0.00001 0.19371 

s trout ( s t ) ; 
color(2 ) ' 
strtiy (4 .3 ,28.5 ) ; 
s trout ( sp ) » 

st=” This display illustrates the covariance rratrices which 
can be used to”? 

5 trout (s t ) ? 

st=”determine how accurate the estimated courses and speeds 
are. An experierced” ? 
strcut (st ) ? 

st="tracker could determine this by examinins: each 4X4 
matrix, however this is”? 
strout(stU 

st=”dif f icul t and thus will be handled by the computer. "? 
strout (st ) ? 
return ? 

} 



picl32() { 

/* This subroutine draws another surface plot 
char *st,*sp? 
colord )? 

bl ock( 0.0, 0.0, 100. 0,1 00.0 ) ? 
color(4) ? 

block(0.0,29.3,100.3,90.3) ? 
color (2 ) ; 

strtxy (10 .0 ,98.0 ) ? 

st="type ==> Continue, Samples, Quit"? 
strout (s t ) ? 
color(7) ? 

b lock (40. 3, 45. 0,71. 5, 78. 3) ? 
color(0) ? 

st=”Re?ion Number 3"? 
s trtxy( 5.0 ,70.0 ) ? 
strout (st)? 

st=”Coherence Limits 0.7”? 
strout (s t ) ? 

st=”--’ ? 

•• •• 

sp= ? 

s trtxy (38. 5,83.7 ) ? 
strout (sp ) ? 
strout ( s t d 
strout (sp ) ? 
strout (st ) ? 
strout ( sp ) ? 
strout d t ) ? 
strout(sp) ? 

st=” 1*1 1 1 1”? 

strout (st ) ; 

st=’*40.00”? 
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strtxy(32.5,75.7) ; 
strout t M 
strtxy (32 . 5 ,46. 2 ) ; 
s t= 33.02) — * 
strout ( s t ) ^ 
s trtxy (36 . 0, 42.7 ) ; 

st=" 147.00 140.00’ ; 

strout (st ) ; 

color(0) > 

circ ( ) ; 

circ2 ( ) ♦ 

circ3( ) ; 

return; 

} 



circ3() { 



char 


,%*e,*r,=!‘T; 


0=" 00 


0 "; 


W=” 0 0 


0 0 ” ; 


E=” 0 


• 

O 

o 

o 


R=" 0 


• 

o 

o 


II 

o 

o 


0 ; 



strtxy(40 .3 ,79.a ) ; 
color (0 ) ; 
strout (0) ; 
strout (W) ; 
strout (I ) ; 
strout (R ) ; 
strout (T ) : 
strtxy(40. 9,31.0) ; 
strout (E ) ; 
strout (R ) ; 
strout (E ) ; 
strout (E ) ; 
strout (R ) ; 
dblwidd ); 
strout i'll ) ; 
strtxy(40.0,78.0) ; 
strout ( t); 
strout d ) ; 
strout (W); 
strout (W) ; 
strout (P ) ; 
strtxy(41 .0,78.7); 
strout (E) ; 
strout i'll ) ; 
strout (E) ; 
strout (T ) ; 
strout d ) » 

dl5lwi(i(0); 
color(4) ; 

t)lock(39.0,78.0,100.0,85.0) ; 
block(71 .5,44.0,100.0,85.0) ; 
return; } 
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U This section of code is designed to give the user prac- 

# tice visualizing the types of data that will be presented# 

# in the actual tracking. It is basically set up to run # 

# four types of data depending on the parameters that the # 

# user tries to use. Each display gives the examples and # 

# then tells the user what the problem areas might be, if # 

# there are any. This is the fifth section of the main # 

# program but can be called up by itself by typing Senerio # 
#####################################################,/####={'/ 



int choice, cont ,run,region,track,coher,lath,latl, longh , longl 
char *srun ,*sregion,*strack,*scoher,*slath ,=^slatl ,'!‘s longh; 
char ,*E ,>!'Q ,*W,-S ,=<=T ,=^Y ,*slongl ,*top; 

/* Setting global values because they are used in 
many of the displays */ 



main() { Senerio section of program */ 

char cc; 

ramtek(); /* initializing the Ramtek subroutines ■■'/ 
writon(l ); 

changcolor ( ) ; /* Establishing a new color table 

colort(10); 

t op="type==>Menu , Location, Peak, Accuracy, Surface, Quit"; 
Setting a global string that gets displayed at the 
top of the majority of the displays */ 

cont=i; 
sregion=”l0” ; 
srun="e"^ ; 
strack=[[2'' ; ^ 
scoher="l . 0" ; 

slath="35 . 45 " ; /=*= initializing global values */ 

slatl="35.00"; 

slongh="l25.45" ; 

slongl=" 125.00" ; 

senm( ) ; 

while (cont==l) { while #1 

cc=retchar{ ) ; 

switch(cc) { switch #1 

Switching of the displays dependent on the desires 
of the user at the keyboard 
case 'm'l /* displays the menu */ 
senm ( ) ; 
break; ^ 

case 'p': /* displays peak data */ 

senpO ; 
break; 

case '1': /* displays positional data */ 

senK ); 
break; 
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case 'a': /* displays the accuracy data 

sena ( ) ; 
hreakf 

case 's': /^' displays the surface plots / 

sens ( ) ; 
break; 

case 'r': /* Return */ 

pstop ( ) ; 
break; 

default : 
cont=l ; 

} /* end of switch */ 

} /* end of while #1 */ 

} /* End of Main */ 



senrr( ) { This display presents a nenu of parameters 

that can be altered by the user to set a 
better view of the situation */ 



char *st,*sp; 
color(7 ) ; 

block (0.0, 0,3,123.0,120.0); 
col or ( 10 ) ; 

block(0. 0,90.0, 100. 0, 100.0) ; 
color (5 ) ; 

strtiy(10.0,97.0 ) ; 

st=”type in the desired numbers or zeros.”; 
strout (st ) ; 
strtxy(e. 0,86.0) ; 

st=” There are a number of parameters that you can change 
to survey different tracks,"; 
strout (s t ) ; 

st="runs, and regions. The limits are listed alone: with the 
present value of the”; 
strout (st ) ; 

st=”parameter . When the block appears to the right of the 
present value, just type”; 
strcut(st) ; 

st=”in the value desired followed by <cr> (if the present 
value is okay type 0 <cr>).”; 
strout (st ) ; 

ft ft 

sp= ; 
strout (sp ) ; 
strtxy(15.0,58,0) ; 

St=” Lir^IT PARAMETER PRESENT VALUE 

NEW value”; 



strout (s t ) ; 
strout( sp) ; 

st=” 1-25 REGION 

strout (st) ; 

st=” 1-7 RUN 

strout (st ) ; 

st=” 1-10 TRACK 
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C0EER2NCE 
LATITUDS(high) 
LATITUDE(low) 
LO.VGITUDE(high) 
LONGITUDE (low) 



strout (st ) ; 
st=" 0. 1-2.0 
strout ( St ) ; 
st=" 30.00-50.00 
strout ( St ) ; 
st=” 30.00-50.00 
strout (s t ) ; 

St = "l20.00-14:0.00 
strout (st ) ; 
st="l20. 00-140. 00 
strout (st ) ; 
strtxy (57.0,48. 5) j 

strout (sregion) ; /* Prints out present values of pararreters'*V 

strout ( srun ) ; 

strout (strack) ; 

strout (scoher ) ; 

strout ( slath ) » 

strout (s latl ) ; 

strout (slongh) ; 

strout ( slongl ) ; 

newval(); /'^ calls the subroutine that checks the 

values being inserted by the user 
senma()> /* calls for a new display 

if (coher<=07) { Establishes what set of displays will 

be presented based on the values that 
were just inputted by the user ^'/ 
if ( (lath-latl ) <= 100) 
choice='c 
else 

cholce='b'; 



} 

else { 

if ( (lath-latl ) <= 100) 
choice='d 
else 

choice='a 

} 

} 



senina() { /* This displays the basic parameters and then 

allows the user to continue, quit, or change 
the parameters. 

char *sp,cc,*st; 
color(7); 

block( 0.0, 0. 0,100.0,1 00.0 ) ; 
color ( 10 ) ; 

b lock( 0.0, 90.0, 100. 0, 100. 0) ; 

color(5) ; 

strtxy (5 .0 ,97.0 ) ; 

strout(”type ==> Continue, Menu, Ouit")» 
sp=" ’■ ; 

strtiy(25. 0,60.0) ; 
st="RUN NUMBER 
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strout ( St ) » 
strout (sp) ; 
st="REGION NUMBER 
strout (st ) ; 
s trout (su) ; 
st="TRACk NUMBER 
strout (st ) ; 
strout (sp) ; 
st="COHERENCE LIMIT 
strout(st) ; 
cc='z'; 

while (cc=='z') { 
cc=retchar ( ) ; 
switch(cc) { 
case 'c': 
senl ( ) ; 

■break; 
case 'n': 
senm ( ) ; 
break; 
case 'a/: 
pstop ( ) ; 
break; 
default : 
cc='z ' ; 

} 

} 

} 



Continue */ 

/* displays the menu */ 
/* Quit */ 



pstop() { This display is presented anytime 

types 'q and then finds out if he 
wants to quit. */ 

char *st,*sp,cb; 
color (3 ) ; 

block(3.0,0.0,100.0,100.0) ; 
color (2 ) ; 

It II 

sp= ; 

strtxy(46.0,80.0) ; 
st="Do you"; 
strout ( St ) ; 
strout (sp ) ; 
st=" REALLY"; 
strout ( St ) ; 
strout (sp) ; 
st="WANT to"; 
strout (st ) ; 
strout (sp) ; 
st="RETURN to"; 
strout ( st ) ; 
strout (sp); 

strout("THE MAIN"); strout(sp); 
strout (" program?"); 

5t= (y / n) ; 



the user 
really 
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strout ( St ) ; 
c‘b=retchar ( ) ; 
if(ct)=='y') { 

cont=0» /’*' Sets global value to quit senario ’■V 
color (0 ) ; 

block(0.0 ,0.0,100.0,100.0) ; 

} 

else 
seel ( ) ; 

} 



newvaK) { /* This subroutine receives the inputs of the 

user for the changing of the parameters, 
evaluates them, rejects any that exceed 
the limits, and then inserts decimal points 
where necessary. */ 

int t , tcoher , tregi on , t run ,ttrack,tlath,tlatl, t longh , t longl ; 
t=0; 

while (t==0) { 

col or (15 ) ; 

bl ock (73. 0,45. 0,68.0, 50.0 ) ; 
strtxy(74. 0,49.0) ; 
color (5 ) ; 

tregion=getnum ( 10 ) ; /* changes the region number / 

if (tregion != 0) { 

if ((tregion <= 25)&Si(tregion >= 1)) { 

i toa (sregion , tregi on ) ; 
region=tregion; 
t=i; 

} 

else 

t=0; 

} 

else 

t=i; 

} 

t=0; 

while (t==0) { 

color (15 ) ; 

block(73.0,39.5,86.0,45.0); 
s t r t xy ( 74 . 0 , 43 . 0 ) ; 
color (5) ; 

trun=getnum(10) ; /* changes the run number '^ / 

if (trun!=0) { 

if ( ( trun<=7) &&( trun>=l ) ) { 

i t oa ( srun , trun) ; 
run=t run; 
t=i; 

} 

else 

t=0; 

} 

else 
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t=i; 

} 

t=2; 

while(t==0) { 
color ( 15 ) ; 

1)1 ock (73. 0,34. 3, 88. 0,39.0) J 
strtxy(74.0,38.0) »* 
color (5 ) > 

1 1 rack=ge tnum ( 10 ) ; /* changes the track nurr.her 

if ( ttrack! =0 ) { 

i f ( ( 1 1 ra ck<=10 )SiSi ( 1 1 rack>=l ) ) { 

i toa ( s track, t track) ; 
track=ttrack; 
t=i; 

} . 

else 

t=0; 

} 

else 

t=i; 

} 

t=0; 

while(t==0) { 
color (15 ) ; 

block (73. 0,27. 5, 88.0, 33.5 ) ; 
strtxy(74.0,33.2); 
color (5 ) ; 

tcoher=getnum( 10) ; /* changes the coherence limit =!'/ 

if ( tcoher != 0 ) { 

if ( ( tcoher<=20)&&( tcoher >=01 ) ) { 

itoa(scoher, tcoher) ; 
coher=tcoher ; 
scoher [4] =scoher [3] ; 
scoher [3] =scoher [2] ; 

scoher [2] = ; /=*= inserts a decimal ooint */ 

t=i; 

} 

else 

t=0; 

} 

else 

t=i; 

} 

t=0; 

while (t==0) { 

color (15 ) ; 

hlock( 73. 0,23.0, 88. 0,28.0); 
strtxy(74. 0,28.0) ; 
color (5 ) ; 

tlath=getnum(10 ) ; /■'’ changes the high latitude value ’•'/ 

if(tlath!=0) { 

if ( (tlath<=5000)8&(tlath>3000) ) { 

i toa (slath , tlath ) ; 
lath=tlath; 
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slath f6 
slath[5 



t=i; 

} 



! =slath 


'5* 


^ =slath 


A 


” =sla th 


w 


J - • f 





inserts a decirral point */ 



else 

t=0; 

} 



else 



t=i; 

} 

t=0; 

while (t==0) { 

color (15 ) ; 

hlock(7?.0,l?.5,88.0,23.5) ; 

S trtxjr( 74.0, 23.3) ; 
color (5) ; 

tlat l=getnum (10 ) ; /* changes the low latitude value "•/ 

if(tlatl!=0) { 

if ( ( tlatl<5000)&&( tlatl>=3000)S,&(tlatl<tlath) ) { 



/* flakes sure that latitude low is less than the 
high latitude */ 



=slatl [5‘. 

=sla tl [4 
=slatl [3] ; 

/* inserts a decimal point 



itoa (slatl ,tlatl ) » 
latl=tlati; 
slatl [6‘ 
slatl [5^ 
slatl [4] 

sla tl [3] = ' . ' ; /* inserts a decimal point */ 

t=i; 

} 

else 

t=0; 

} 

else 

t=i; 

} 

t=0; 

while (t==0) { 

color ( 15 ) J 

hi ock( 73. 0, 12. 0,88.0, 18.2 ) ; 
strtxy (74.0 ,18.0); 
c ol or ( 5 ) ; 

tlongh=getnum(10) ; /’^'Changes the high longitude value*/ 
if (tlonghl=0) { 

if ( ( tlongh<=14000)&S.( tlongh>12000) ) { 

itoa (slongh, tlongh) ; 
longh=tlongh; 
slongh [6l =sl ongh [5] ; 
slongh [5] =sl ongh [4] ; 
slongh [4] = si ongh [3] ; 

slongh [3] ; /* inserts a decimal point */ 

t=i; 

} 
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else 

t=0; 

} 

else 
t=l ; 

} 

t=z; 

while(t==0) { 
color (15 ) ; 

1)1 ock(73. 0,8.5,68.0, 11.5) ; 
strtxy (74.0,13 .0) ; 
color(5 ); 

tlongl=getnum( 10) » /* changes the low longitude value */ 

if ( tlongll=0) { 

if ((tlongl<=14000)&&( tlongl>=l2000 )&8( tlongKtlongh) ) { 

Makes sure that the value of low longitude is 
less than that of high longitude */ 
i t oa ( slongl , t longl ) J 
longl=tlongl > 
slongl [6]=slongl [5] ? 
slongl [5] =slongl [4l ; 
slongl [4] =slongl [31 ; 

slongl [3] ; /* inserts a decimal point 

t=i; 

} 

else 

t=0; 

} 

else 

t=i; 

} 

} 

itoa(ptr,no) /* This subroutine changes an interger 

into a string of characters / 

char *ptr; 
int no? 

{ 

int K; 

if((5=no/10) 1= 0) 
ptr = itoa(ptr,K); 

*ptr=no + "0'; 

’!'++ptr = '\0'J 
return (ptr ) ; 



senp() { /=" This displays the peak data 

char *st,*sp» 
color (1 ) ; 

block(0.0,0.0,100.0,100.0) ; 
color (4 ) ; 

block(0.0,15.0,100.0,90.0) ; 
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color (2 ) ; 

strtxy (10. 0,98.0); 
strout ( top ) ; 
color (5 ) ; 
strtxy(5.0 ,86.0 ) ; 

St='' RUN NUMBER 6 

strout (st ) ; 
sp= , 
strout (sp) ; 

st="Receipt Time Peak 

Peak Data 

strout (st ) ; 

st=" 20-Eel)-80 Number STM/EM 
TAU DOPPLER Gamma-Sq"; 
strout (st ) ; 
strout (sp ) ; 
switch(choice ) { 



REGION NUMBER 6 TRACS NUMBER 9 ,* 



-REF Station- 



Freq 



-PHD Station- 
STM/EM Freq 



/* There are four possible sets of data 
can be displayed dependent on the 
various limits set by the user */ 



case 'd': 
st=" 00:00:00 
strout ( s t ) ; 
st=" 15:16:15 
strout (st ) ; 
st=" 15:16:15 
strout (st ) ; 
st=" 15:33:19 
strout ( s t ) ; 
st=" 15:50:23 
strout ( st ) ; 

St=" 16:07:27 
strout ( st ) ; 
st=" 16:08:31 
strout (st ) ; 
st=" 16:09:56 
strout (st) ; 
st=" 16:11:34 
strout ( st ) ; 
str txy (4 .0 ,12 .0 ) ; 



FORTH TO PROVIDE DATA. ; 

Strout (st ) ; 

st="( NOTICE THE TAU VALUES ALTERNATING )”; 
Strout (st ) ; 
break; 
case 'a': 



0 


0 


0 . 00 


0 


0.00 


3427 


1323024 


48.70 


1322029 


48.70 


3533 


1322031 


48.70 


2411020 


48.70 


3449 


1323024 


48.70 


1322030 


48.70 


3540 


1322031 


48.70 


2411021 


48.70 


3453 


1323025 


48.70 


1322030 


48.70 


3421 


1322032 


48.70 


2411320 


48.73 


3479 


1323024 


48.70 


1322031 


48.70 


3429 


1322031 


48.70 


2411023 


48.70 


: TWO 


SETS OF ARRAYS SWITCHING BAG 


K AND 



st=" 16:52:56 
strout (st ) ; 


0 


0 


48.73 


0 


48.70 


St=" 16:52:56 
strout (st ) ; 


3542 


1333031 


48.70 


1346024 


48.70 


St=” 16:55:37 
Strout (st ) ; 


3478 


1333041 


48.70 


1346031 


48.70 


st=" 16:58:10 
strout Ut ) ; 


3548 


1333027 


48 . 70 


1346028 


48.70 
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St=" 16:59:19 


3557 


1322107 


48.70 


2411321 


48.70 


strout (st ) ; 
st=" 17:03:02 


3461 


1333034 


48.70 


1346021 


48.70 


strout (st ) » 
St=” 17:05:56 


3640 


1333051 


48.70 


1346039 


48.70 


strout (st ) ; 
st=" 17:09:42 


3582 


1322114 


48.70 


2411324 


48.70 


strout ( st ) ; 
st=" 17:11:48 


3533 


1333029 


48.70 


1346042 


48.70 


strout(st) ; 
strtxy (4.0 fl2 ,0 ) ; 

St="NOT MUCH alternating 


OF ARRAY PAIRS, THUS PROBABLY NOT 


TOO GOOD A 
Strout ( St ) ; 
break; 
case 'b': 
st=" 21:36:04 


TRACK. ; 

0 


0 


48.70 


0 


48.70 


strout (st ) ; 
st=" 21:36:04 


3560 


2411051 


48.70 


1441024 


48.70 


strout(st) ; 
St=" 21:37:09 


3532 


2412034 


48.70 


1442067 


48.70 


Strout (st ) ; 
st=" 21:37:52 


3571 


2411041 


48.70 


144102S 


48.70 


strout (st ) ; 
st=" 21:38:38 


3564 


2411038 


48.70 


1441021 


48.70 


strout (st ) ; 
St=” 21:39:41 


3551 


2411036 


48.70 


1441025 


48.70 


strout (st ) ; 
st=” 21:40:02 


3554 


2411028 


48.70 


1441020 


46.70 


strout (st ) ; 
st=" 21:40:58 


3584 


2411031 


48. ^70 


1441024 


48.70 


strout (st ) ; 
st=” 21:41:44 


3547 


2411035 


48.70 


1441013 


48.70 


strout (st ) ; 

strtxy (4. 0,12.0); 

st="NO SWITCHING OE ARRAY 


PAIRS, YE 


T THERE 


IS A LOT 


OF 


VARIANCE IN 
strout(st ); 
St="THUS A VERY 
strout (st ) ; 
break; 
case 'c'i 
st=" 06:12:37 


THE TAU VALUES , ; 
POOR TRACK."; 

0 0 


46.70 


0 


48.70 


strout ( s t ) ; 
st=” 06:12:37 


3325 


1341021 


48.70 


1472365 


48.70 


strout (st) ; 
st='* 06:13:25 


3342 


1334261 


48.70 


2437001 


48.70 


strout (st ) ; 
st=’’ 06:14:03 


3394 


1341036 


48.70 


1472341 


48.70 


strout(st) ; 
st=" 06:14:57 


3327 


1834275 


48.70 


2437009 


48.70 


strout(st) ; 
st=” 06:16:32 


3319 


1341028 


48.70 


1472355 


48.70 



strout (st ) ; 
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St= 06:17:29 
Strout (st ) ; 


0364 


1341025 


48.70 


1472351 


48.70 


st=" 06:18:54 
strout (st h* 


3318 


1834268 


48.70 


2437005 


48.70 


st=" 06:20:21 


3343 


1341029 


46.70 


1472368 


48.70 



strout (st ) ; 
strtX7(4.3,12.0) J 

st="FAIRLT C-OOr SWITCHING OF ARRAY PAIRS BUT WITHIN AN ARRAY 
PAIR THERE IS TOC MUCH"; 

Strout (st ) ; 

st="VARIANCE DUE TO THE LOW COHERENCE LIMITS."; 

Strout (st ); 

■break; 

} 

} 

senl() { This subroutine displays the position, 

course, and speed of the contact */ 

char *st,^sp; 
color (1 ) ; 

block (0.0, 0.0, 100. 0,100.0) ; 
color(4) ; 

block(0.0,15.0, 100.0,90.0) ; 
color(2) ; 

strtxy(10. 0,98.0) ; 
strout (top); 
color (5 ) ; 
strtxy(5. 0,36.0); 

St=" RUN NUMBER 6 REGION NUMBER 6 TRACK NUMBER 9"; 

strout (s t ) ; 

ff tf 

sp= ; 



Strout (sp ) ; 
st="V/ater Time 


Peak 


Position Coordinates 


Courses and 


Speeds"; 








strout ( st ) ; 
st=" 23-Feb-80 

f • 

n ^ ^ j • 


Number 


Latitude Longitude 


Course 



Speed ; 
strout (st ) ; 
strout(sp) ; 
switch(choice) { 



/* Displays 
case 'a': 


one of 


four possible sets of 


data */ 


st= 16:52 
strout (st ) 


56 


0 


38.5000 


142.5000 


0.0 


st=" 16:52 
strout(st) 


56 


3542 


38.4731 


142.4873 


142.0 


st=" 16:55 
strout(st) 


37 


3478 


38.4422 


142.4791 


150.6 


st=" 16:58 
strout (st ) 


10 


3548 


38.4431 


142.4762 


147.3 


st=" 16:59 
strout( st ) 


19 


3557 


38.4401 


142.4750 


156.4 


st=" 17:03 
strout(st) 


02 


3461 


38.4324 


142.4775 


156.8 
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d 
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st=" 17:05:56 


3640 


38.4246 


142.4689 


144.7 


Strout (st ) ) 
St=” 17:09:42 


3582 


38.4263 


142.4663 


136.2 


strout (st ) ) 
St=" 17:11:48 


3533 


38.4221 


142.4572 


149.7 



strout (st ) ; 
strtxy(4. 0,12.0) ; 

St=”POSSIBLY A GOOD TRACK, BUT THE SIZE OF TEE REGION BEING 
COVERED IS A LITTLE") 

Strout (st ) ; 

st=”TOO LARGE TO GET A REAL GOOD PICTURE OF THE SITUATION." 

Strout (st ) ; 

break) 



st=" 21 :36:04 


0 


36.5000 


143.5000 


0.0 


strout (st ) ) 
St=" 21:36:04 


3560 


36.4784 


143.6534 


020.5 


strout (st ) ) 
st=" 21:37:09 


3532 


36.5348 


143.5739 


034.6 


strout (st ) ) 
st=" 21:37:52 


3571 


36.5762 


143.4936 


025.9 


strout (st ) ) 
st=” 21:38:38 


5564 


36.6139 


143.4467 


012.3 


strout (st ) ) 
st=" 21:39:41 


3551 


36.6317 


143.4052 


005.3 


strout (st ) ) 
st=” 21:40:02 


3554 


36.6308 


143.3761 


014.7 


strout (st ) ) 
St=" 21:40:58 


3534 


36.6536 


143.3465 


018.1 


strout ( st ) ) 
st=” 21:41:44 


3547 


36.6738 


143.3263 


023.5 


strout ( st ) ) 
strtxy (4.0,12.0 ) ) 
St="POOR TRACK AS 


SEEN BY 


THE COURSE 


AND SPEED 


CHANGES, 


PROBABLY DUE TO THE ) 
Strout ( st ) ) 

st=" LARGE AREA AND THE LOW 


COHERENC 


LEVEL.") 




Strout (st ) ) 
break) 
case 'c'i 
St=" 06:12:37 


0 


33.5000 


145.5000 


0.0 


strout (st ) ) 
st=" 06:12:37 


3325 


33.4734 


145.5398 


228.4 


Strout ( st ) ) 
St=" 06:13:25 


3342 


33.4689 


145.5402 


235.6 


Strout (st ) ) 
St=” 06:14:03 


3394 


33.4502 


145.5693 


243.5 


Strout (st ) ) 
st=” 06:14:57 


3327 


33.4294 


145.5728 


227.9 


strout (st ) ) 
st=” 06:16:32 


3319 


33.3825 


145.5829 


222.5 


strout (st ) ) 
St=" 06:17:29 


3364 


33.3518 


145.5962 


225.3 



strout (st ) ) 
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st=" 06:18:54 3318 33.3329 145.6036 233.1 

strout(st ) ; 

st= 06:20:21 3343 33.2185 145.6265 242.3 

strout (st ) » 
strtxy(4. 0,12.0) ; 

St="EVEM THOUGH TEE COURSES ARE FAIRLY STEAL! , THE SPEEDS 
ARE FLUCTUATING"; 



strout (st) ; 
st="GRSATLY DUE 


TO TEE LOW 


COHERENCE 


LIMIT. "; 




Strout (st ) ; 
break; 
case 'd': 
st=" 14:56:03 


0 


39.5000 


147.5000 


0.0 


s trout ( s t ) ; 
st=" 14:58:03 


3427 


39.4711 


147.4707 


142.0 


strout (st ) ; 
st=" 15:04:23 


3533 


39.4662 


147.4552 


154.7 


Strout ( st ) ; 
st=" 15:14:30 


3449 


39.4212 


147.4139 


153.9 


strout(st) ; 
st=" 15:38:35 


3540 


39.3582 


147.4417 


160.3 


strout (st ) ; 
St=" 15:48:44 


3453 


39.3960 


147.4615 


161.6 


strout ( st ) ; 
St=" 15:49:31 


3421 


39.4021 


147.4739 


162.4 


strout (st ) ; 
st=" 15:50:56 


3479 


39.4219 


147.4632 


160.3 


strput ( st ) ; 
st=" 15:52:34 


3429 


39.4037 


147.4297 


161.1 


strout (st ) ; 
strtxyH.3,12.0) 


• 

f 








st="A VERY GOOD 


TRACK WITH 


STEADY COURSES AND 


SPEEDS ; 



strout ( St ) ; 
break; 

} 

} 

sena() { /* This subroutine displays the Chi-Square 

scores for various sets of data =!*/ 

char *st t’^'sp; 
color (1 ) ; 

block( 0.0, 0.0, 100. 0,100.0) ; 
color (4 ) ; 

block(0. 0,15. 0,100. 0,90.0); 
color (2 ) ; 

strtxy(10. 0,98.0); 
strout ( top) ; 
color(5) ; 
s t rtxy( 5.0,86.0); 

St=" RUN NUMBER 6 REGION NUMBER 6 TRACK NUMBER 9"; 
strout(st) ; 

t« •* 

sp= ; 
strout (sp ) ; 

st=”Water Tirre peak Prob — CHI Square Scores — 
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l^eas Residuals"; 



strout (st ) ; 
st=" 23-Feb-80 


Number 


Score 


S tagewise 


Cumula ti V 


Deltat Deltaf » 

strout (st ) ; 
strout( sp) ; 
switch(choice ) { 

Z’5' Displays one of four possibl 


e sets of data 




case 'd ; 
st=" 14:58 


03 


0 


0.00 


0.0000 


0 .0000 


strout (st) 
st=" 14:58 


03 


3427 


“1.80 


0.3171 


0.3171 


strout ( st ) 
st=" 15:04 


23 


3533 


“4.89 


0.0162 


0.1667 


strout( st ) 
st=" 15:14 


30 


3449 


“3.99 


0.4410 


0.2581 


strout ( s t ) 
st=" 15:38 


35 


3540 


“4 . 66 


1.4096 


0.2460 


strput(st ) 
st=’’ 15:48 


44 


3453 


“4.81 


2.0796 


0.8527 


strout ( st ) 
st=” 15:49 


31 


3421 


“4.31 


1.8945 


0 .8892 


strout (st ) 
st=" 15:50 


56 


3479 


“4.75 


2.0038 


0.9327 


strout (st ) 
st=" 15:52 


34 


3429 


“4.89 


2.2893 


0.9402 


strout ( s t ) 
strtxy (4.0 , 
st="0UTSTA^ 


,12.3) ; 

;riNG cumulative 


SCORE BY 


THE FINAL TIME 


PERIOD, 


THUS A 
strout (st ) ; 
break; 
case 'a': 
st=" 16:52 


VERY GOOD TRACK. 

» 

1 

56 0 


• 

f 

0.00 


0 . 0000 


0 .0000 


strout (st ) 
st=" 16:52 


56 


3542 


“1 .49 


0 . 1 43 5 


0.1435 


strout (st ) 
st=" 16:55 


37 


3478 


“1.27 


0.2159 


0.1537 


strout (st ) 
st=” 16:58 


10 


3548 


“1.82 


0.5382 


0.3829 


strout(st) 
st=" 16:59 


19 


3557 


“1.95 


0.6547 


0.4690 


strout (st ) 
st=” 17:03 


02 


3461 


“2.56 


1.1021 


0.7023 


strout ( st ) 
st=" 17:05 


56 


3640 


“1.13 


0.2371 


0 .6501 


strout (st) 
st=" 17:09 


42 


3582 


“2.03 


0.6829 


0.6928 


strout (st ) 
st=" 17:11 


48 


3533 


“3.05 


0.7928 


0.7520 


strout ( st ) 
strtxy H.0 1 
st="THE cur 


,12.0); 

WLATIVE 


SCORE IS 


FAIR BUT 


NONE OF THE INDIVIDUAL 


SCORES 


IS REAL 


HIGH.’’; 
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strout ( St ) ; 










break; 
case 'b'; 

St=" 21:36:04 


0 


0 . 00 


0 . 0000 


0 . 0000 


strout (st ) ; 
st=” 21:36:04 


3560 


1 

CD 


0.1021 


0.1021 


strout ( st ) ; 
st=” 21:37:09 


3532 


-1 .43 


0.2341 


0.1735 


strout (st ) ; 
St=” 21:37:52 


3571 


-1.78 


0.3417 


0.2638 


strout (st ) ; 
st=” 21:38:38 


3564 


-1 .93 


0.3176 


0.4173 


strout (st ); 
st=” 21:39:41 


3551 


-2.06 


0.3814 


0.4328 


strout (s t ) ; 
st=" 21:40:02 


3554 


-2.54 


0.4027 


0.4458 


strout (st ) ; 
st=” 21:40:58 


3584 


-2.36 


0.3311 


0.4637 


strout (st ) ; 
st=” 21:41:44 
strout (st ) ; 


3547 


-2.21 


0.3517 


0 .4528 


strtiy (4. 0,12.0) ; 
st="VERT LOW CUMULATIVE 


SCORE AND THUS 


A VERY POOR 


TRACS."; 


strout ( s t ) ; 










break; 
case 'c'l 
St=" 06:12:37 


0 


0 .00 


0.0000 


0 . 0000 


strout ( st ) ; 
st=” 06:12:37 


3325 


-0.83 


0.2134 


0.2134 


strout (st ) ; 
st=" 06:13:25 


3342 


-1.52 


0.4327 


0.3463 


strout (st ) ; 
St=" 06:14:03 


3394 


-1 .83 


0.5621 


0.4743 


strout (st ) ; 
st=” 06:14:57 


3327 


-1.97 


0.7631 


0.6411 


strout (st ) ; 
st=" 06:16:32 


3319 


-2.24 


0.6428 


0.6229 


strout (st ) ; 
st=" 06:17:29 


3364 


-2.56 


0.6817 


0.7536 


strout (st ) ; 
st=” 06:18:54 


3318 


-2.72 


0 . 9443 


0 .7836 


strout (s t ) ; 
st=” 06:20:21 


3343 


-2.74 


0.9218 


0 .7721 



strout (st ) ; 

0 X3*0) • 

st="FAIH*CUMULATIVE VALUES^BUT LOW INDIVIEUAL VALUES EUE TO 
LOW COEEF.ENCE LIMITS."; 



strout (st ) ; 
"break; 



sens( ) { /* This display presents surface plots ^'/ 

char ’''St ,’"sp ; 
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0 



0 



» 



M= 

N=" 

B=" 

W=‘* 



E 

R 

T 



0 0 0 
0 oo ; 
0 0 
0 0 

0 0 
0 oO 

0 



tt 




T=” 0 0 0 ■ ; 

color(4); 

bloclc(0.0,0.0,100.0,100.3) ; 
color (1 ) ; 

block(0.0,0.0,100.0,15.0) ; 
block( 0.0, 90. 0,1 00. 0,100.0) ; 
color (5 ) » 

block( 40. 0,45. 0,71.5, 78.0); 
color (0) ; 
strtxy(4. 0,97.0) ; 
strout (top ) ; 
swltch(choice) { 

/* Displays one of four possible 

C cl 5 0 D • 

surl(); sur2(); sur3(); sur4(); 
strtxy(4. 0,12.0); 

St=”JUST A LOT OF NOISE, TOO LOW CGH 
LARGE AN AREA."; 



surface plots */ 



ERENCE Lir^ITS AND TOO 



strout ( St ) ; 
break; 
case 'a': 
surl ( ) ; sur3( ); 
strtxy(4. 0,12.0) ; 

St=" NO PATTERN IN THIS LARGE AREA"; 

Strout ( St ) ; 
break; 
case 'c' : 

surl(); sur2(); sur3(); 
strtxy(4. 0,12.0) ; 

St="TOO MUCH NOISE DUE TO THE LOW COHERENCE LIMITS"; 
Strout ( St ) ; 



break; 
case 'd'; 
sur4(); sur5(); 
strtxy(4.0,12.0) ; 

st="GOOD SOLID PATTERN DOWN THE LEFT SIDE OF THE REGION"; 

Strout ( St ) ; 

break; 

} 

color (4 ) ; 

block(40. 0,78. 0,85. 0,90.0); 
bl ock( 71. 5, 45. 0,100.0, 85.0 ) ; 



surl( ) { 

strtxy (40. 1 ,80. 0 ) ; 
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strout (Q ) ; 
strout (E ) ; 
strout (0 ) > 
strout (Y ) ; 
strout (H ) ; 
strout (E ) ; 
strout (T ) ; 

} 

sur2() { 

strtxy(42.0,78. 5) ; 
strout (R ) ; 
strout ( T ) ; 
strout (V) » 
strout (E) ; 
strout ( Y ) J 
strout(W); 
strout (E) ; 

} 

sur3() { 

strtxy(41 .0,81.5 ) » 
dblwidd ); 
strout (Q ) ; 
strout(W) ; 
strout (E ); 

strout(W); /’*' Each of these short subroutines draws 
strout(Rd /* some circles on the surface plot that */ 

strout(0)» /* is presently being displayed */ 

strout (Y ) ; 
dblwid(0); 

} 

sur4 ( ) { 

strtxy(42.9,83.0)j 
strout ( Y ) ; 
strout (R); 
s t r ou t ( V ) ; 
strout ( W) > 
strout d ) > 
strout (0 ) ; 

} 

sur5( ) { 

strtxy(40.0,80.0) ; 
strout (E ) : 
strout (E ) ; 
strout (V) ; 
strout d ) > 
strout (E ) ; 
strout d ) j 
strout (R d 
strtxy (43.6,78. 0 ) > 
dblwid(l); 
s trout ( W) ; 
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strout (E ) j 
strout (F ) ; 
strout (B ) ; 
strout (B ) ; 
strout (F) ; 
strout (B ) ; 
dblwid(0); 
strtxy(41 .0,30.9); 
strout (B ) ; 
strout (M); 
strout (N ) ; 
strout (M) ; 
strout (E ) ; 
strout (N ) ; 
strout (M) ; 
strtxy (40.2,79. 5 ) ; 
strout (M ) ; 
strout (N ) ; 
strout (M) ; 
strout (M) ; 
strout (3 ) ; 
strout (N ) ; 
strout (M ) ; 

} 



changcolorO { 

/* Fstablishes a new 
int a [16] 



a[0] 
a[l] 
a [2] 
a [3] 
a [4] 
a [5] 
a [6] 
a [7] 
a [8] 
a [9] 
a [10 
a [11, 
a [12' 
a [13' 
a [14 
a [15 



clrtbl(10,a ) ; 



triple(0,0,0); 
triple(15,0,0) ; 
triple(0,15,0) ; 
triple(0,0,15) ; 
triple(15,5,0) > 
triple(2,0,6); 
triple(0,10,0) ; 
triple(2,6,10); 
triple(6,10,2) ; 
triple(10,2,6); 

^ triple (13,5,2); 
triple(5,2,13); 
triple (2,13,5); 
triple(15,0,15); 

^ triple(10,4,4) ; 
triple(15,15,15); 



return; 

} End of the Senario 



color 



/ 



table 
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